

O TK 90X é a última palavra em microcompu¬ 
tador! 

Além da vantagem do custo, apresenta simpli¬ 
cidade de uso capaz de habilitar tanto os jovens 
como os adultos a desfrutar de todos os seus múl- 
tipjos recursos^ 

É fantástica a sua capacidade de manipular os 
diversos tipos de programas educacionais. 

Neste livro são apresentados 45 programas, 
dos quais 30 totalmente comentados. À medida 
que eles aparecem, existe uma metódica e se- 
qüencial explicação de todas as instruções da lin¬ 
guagem BASIC que é entendida pelo TK 90X. 

Os princípios envolvidos e as técnicas especiais 

■ 

utilizadas são totalmente descritos, permitindo ao 
iniciante compreender rapidamente como funcio¬ 
nam os programas enviados ao TK 90X. 

Este livro permite que você compreenda, no 
futuro, qualquer programa escrito na linguagem 
BASIC no TK 90X. 
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APRESENTAÇAO 


Entre os objetivos que tive em vista ao es 
crever este livro quero destacar o mais importante 
ou seja aquele de apresentar um texto que permita 
atender as necessidades de todas as .Escolas na im- 
plantaçao dos seus cursos iniciais de Informática 
estruturados sobre o TK 90X. 

Assim a Microdigital fabrica o fantástico 
TK 90X, a Livraria e Editora Nobel S.A. possibilita 
a produção e a distribuição do livro e a mim cabe a 
missão mais simples ou seja elaborar o proprio. 

Espero que este livro, em conjunção com o 
manual que acompanha o TK 90X, permita a voce esti- 
mado(a) 1 eitor(1eitora) dominar a linguagem BASIC 
toda especial do seu TK 9(ÔX. 

Aliás já escrevi vários livros para oTK 85 
e para o TK 2000 II (você já os conhece?) e este 
vai lhe dar condição de usar o unico micro pessoal 
lançado no Brasil ate agora,que realmente merece a 
classificação de "software machine”, um título inco 
mum porem merecido, devido a facilidade do seu uso, 
os seus grandes recursos e por que não destacar o 
seu preço acessível. 

Recentemente tive a felicidade de conhecer 
a figura eminente do padre e professor Waldemar 
Valle Martins que me presenteou com um dos seus li¬ 
vros - "A liberdade de ensino" - que contem impor¬ 
tantes reflexões a partir da situação do Brasil. 
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Este livro e um guia para dominar o manejo 
do seu TK 90X. 

Um micro como o TK 90X realmente nao dis¬ 
crimina ninguém. 

Todos podem adquirí-lo e utilizar no "refú 
gio" domiciliar ou na pior das hipóteses utiliza- 
lo nas escolas do 19, 29 e 39 graus ou ainda nas em¬ 
presas. 

0 TK 90X permite obter resultados que var¬ 
rem nao apenas a ãrea educacional, mas também a téc 
nica, o lazer e os pequenos negócios. 

0 livro "BASIC NO TK 90X" e o primeiro de 
uma grande serie que pretendo lançar para possibili 
tar a todos o completo domínio desta maquina fabulo 
sa - TK 90X. 

ANTES DE COMEÇAR 0 LIVRO NÃO ESQUEÇA 
QUE 0 SEU TK 90X É TOTALMENTE COMPA- 
TIL COM 0 ZX-SPECTRUM 
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xandre (Sacha para os íntimos, que agora jã aju¬ 
dou...). 

Eu sei que para aqueles que me prestigiam 
usando os meus livros de Informática, a primeira 
parte da frase acima parece um "repeteco" um tanto 
sonso,.. 

Pois então vou melhorar o' meu depoimento 
dizendo que Nilza Maria jã me ajudava com os meus 
livros na minha primavera (escrevi o meu primeiro 
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dor e repousante por termos deixado um bom exemplo, 
pelo menos para os nossos filhos. 

Muito obrigado ao amigo George Kovari, di¬ 
retor da Microdigital, por mais uma vez ter me enga 
jado neste projeto muito mais educacional do que co 
mercia1. 




Estou seguro que o TK 90X ira modificar de 
forma substancial o ensino, dinamizando-o e princi¬ 
palmente colocando a disposição dos que estudam e 
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"ArigatÔ", Toshiro Iqueda, datilografo,edi 
tor e amigo de muitos anos (datilografou todos os 
meus livros a partir do terceiro e hoje já tenho 
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Capítulo 1 

Palavras-chave ou seja ensinando ao 
TK 90X o que deve ser feito 


Um micro nao e nem um pouco tao inteligen¬ 
te c orno voc e . . . 

Ele precisa receber instruções claras de 
voce sobre tudo o que deve fazer. 

Voce sabia que os micros nao sao tao inte¬ 
ligentes como 3$ pessoas? 

0 TK 90X nao pode fazer nada por si pró¬ 


prio. 

Ele necessita de voce caro(a) leitor (lei¬ 
tora) para dizer-lhe o que deve ser feito. 

Os humanos, para entender-se com os micros 
e princi paimente para dar-lhes ordens, des envolveram 
uma série de linguagens, chamadas de alto nível, tais 
como o FORTH, PASCAL, COBOL ou o BASIC. 

Todas tem suas próprias regras de sintaxe, 
as quais são muito mais simples e restritas do que 
as que exige um idioma falado ou escrito entre pes¬ 
soas como é o caso do Português. 

Cada uma das palavras que integram estas 
linguagens de alto nível nao podem ser entendidas 
diretamente pelo microprocessador (ou seja o "cére¬ 
bro") do TK 90X . 

Um microprocessador só pode executar micro 
instruções do seu particular idioma, cujo 
linguagem de máquina. 


nome e 














Desta forma qualquer palavra de um idioma 
de alto nível esta formada por varias micro instru¬ 
ções concatenadas de tal forma que, finalmente, rea 
lizam o que o(a) programador (programadora) espera 
das mesmas. 

Todos os idiomas de alto nível, citados 
acima, foram desenvolvidos por pessoas de lingua in 
glesa e consequentemente as palavras-chave são era 
Inglês . 

A linguagem de alto nível que iremos apren 
der para dar ordens ao TK 90X chama-se BASIC e no 
lugar de ter milhares de palavras (algumas com du¬ 
plo e ate triplo sentido) como o Por tuguês y tem apro 
ximadamente 90 palavras. 

Ê de alto nível e ao mesmo tempo muito sim 

pies. . . 

Assim como você diz ao seu "cãozinho "-fila 
"senta!' ou "deita ai!" você (com um pouco mais de 
delicadeza...) pode pedir para o TK 90X que entre 
em "ação" usando palavras simples tais como: 

PRINT, LET, LIST etc. 

Naturalmente, ainda não da para mandar es¬ 
tas ordens por via oral. 

Voce ordenará isto para o seu TK 90X uti¬ 
lizando o seu teclado. 

Acho entretanto, que em alguns anos estas 
instruções poderão ser enviados através do movimen¬ 
to sincronizado da sua lingua dentro da sua boca 
acompanhada de inspirações e expirações... 

As palavras mais importantes que o TK 90X 
entende são as chamadas palavras-chave . 

Todas as palavras-chave do TK 90X estão im 
pressas na cor branca nas teclas, perto da letra 
principal. 
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Assim por exemplo voce encontra a palavra- 
chave LET na tecla L a palavra-chave PRINT na tecla 
P, a palavra-chave LIST na tecla K, etc. 

Todas as palavras chave em branco no seu 
TK 90X sao chamadas de comandos . 

São elas que indicam ao TK 90X o que deve 
ser feito como PRINT (imprima), LOAD (carregue) ,NEW 
(novo), RUN (execute), GOTO (va para), etc. 

Um TK 90X pode "carregar", "executar" e"ir 

para"? 

Não se amofine respeitado(a) 1eitor(1 ei to-. 
ra) vamos explicar tudo nos mínimos detalhes, daqui 
para frente... 





Capítulo 2 

Como se pode imprimir (PRINT) 
números na tela do seu aparelho de T.V. 


Esteja seguroque a tela da T.V.esteja 1im 
pa e contenha apenas a mensagem 


TK 90X-Color Computer 


Olhe agora com aténção no teclado e veja 
que no lado direito do teclado você tem a tecla 
ENTER . 

Aperte a mesma. 

Note que a mensagem 

^ TK 90X-Color Computer ^ 

desaparece e no seu.lugar surge um pequeno retângu¬ 
lo (cursor) piscando [K j . 

Caso voce nao possa afirmar que esta vendo 
um 0 entã o p recisa ajustar o seu aparelho de T.V. 

0 piscando e uma forma do TK 90X lhe 

dizer que ele quer que voce lhe envie uma pa ZaWG— 
chave , 

Para nao decepcionar o seu TK 90X 
por exemplo a tecla P. 


aperte^ 
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Aparecera na tela a linha 
PRINT |T| 

Deu para voce perceber que o 0 "piscan- 

te" foi substituido agora por um [3 piscando? 

Uoootimol 

0 jT]. piscando significa que o TK 90X esta 
esperando’agora que você teple uma letra ou um nume 


r o. 

Vamos entrar com o numero 10. 

Para tanto você encontrara o 1 .na primeira 
tecla a esquerda e acima no teclado e o 0 (zero) na 
outra extremidade e a direita. 

A barra cortando o zero (0) e para que vo¬ 
cê não faça confusão com a letra "0". 

Bem aperte a tecla ”1" e em seguida a te¬ 
cla "0" e a seguir aperte a tecla ENTER . 

0 que aconteceu? 

Resp.: Você disse para o .TK 90X que imprimisse 

(PRINT) o numero 10 na tela da T.V. 

E e o que realmente vai acontecer... 


Tente agora imprimir outros nümeros na te¬ 
la e para tanto tecle o seguinte: 


PRINT 

seguido por 

33447 

e por 

ENTER 

PRINT 

seguido por 

2237. 

e por 

|ENTER 

PRINT 

seguido por 

999 

e por 

ENTER 


Voce percebera que cada numero novo e im¬ 
presso em uma nova linha abaixo do ultimo numero. 

Não se preocupe (por enquanto) se algo 
ocorrer errado. 

Neste caso tome a decisão mais elementar 
desligue o TK 90X da tomada e ligue novamente. 
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Pode começar tudo de novo e tecle certo 
daí para frente pará não ter que repetir esta estra 
nha operaçao de inicializaçao... 

Porem, se voce entrar com um numero bem 
grande como 

PRINT] 987654321 |ENTER 

o seu TK 90X irã apresenta-lo de outra forma. 

0 TK 90X usa uma notaçao especial para os 
numeros grandes e assim a.parecerã na tela. 

9.8765432 E + 8 

0 E+8 significa: mova o ponto decimal "." 
(ê a nossa clássica vírgula decimal ",") oito posi¬ 
ções para a direita quando então volta-se a situa¬ 
ção original 987654321 (sõ que o 1 não aparece na tela). 

Assim se tivéssemos o numero 9.87654321 E-5 
isto significa que temos um numero muito pequeno e 
deve-se mover o ponto decimal oinoo posições para a 
esquerda ou seja o numero e 0.0000987654321, 

Geralmente você não iri precisar desta no¬ 
tação, a não ser que esteja elaborando programas on 
de são feitos cálculos que resultem em numeros mui¬ 
to grandes ou muito pequenos. 

Costuma-se chamar esta notação de exponen¬ 
cial . 

Não esqueça portanto que: 

-► Diz ao TK 90X que você terminou de teclar al¬ 
go e deseja que o mesmo faça algo. 

-Diz ao TK 90X para imprimir algo na tela. 

Por enquanto sõ imprimimos numeros, mas logo 
em seguida você irã aprender a imprimir pala¬ 
vras, frases e respostas para operações. 

0 Executado 0:1 0 TK 90X imprime esta mensagem na tela,pa: 

ra lhe indicar que jã fez o que voce lhe 
pediu ou ao menos ele pensa isto»•:• 




8 


Cursor K 


Cursor L 


0 TK 9$X esta esperando que você aperte uma 
palavra-chave . 

0 TK 9j5x ira interpretar a próxima coisa 
que voce ira teclar , como uma simples letra 
ou numero. 


Cada vez que se aperta uma tecla, algo su¬ 
cede (ou ao menos predispõe-se a suceder) na tela. 

Neste sentido, o seu melhor colaborador e 
o auvsor que esta representado na tela por uma le¬ 
tra que esta piscando e que lhe indica o modo no 
qual o TK 90X esta predisposto a trabalhar. 

Você já conhece os modos K (de keyword * 
palavra-chave) e L (de letter = letra) e ira apren¬ 
der adiante o uso dos modos G (de graphics = gráfi¬ 
co), C (de capitais = maiusculas) e E (de extended- 
ampliado ou estendido). 



Capítulo 3 

Imprimindo palavras na tela 


Chegou o momento de fazer algo mais inte¬ 
ressante do que simplesmente ver números na tela. 

Aperte a tecla "P" para obter a palavra- 
chave PRINT na tela. 

Agora procure a tecla marcada com as pala¬ 


vras em vermelho 


SYMBOL 

SHIFT 


Voce encontrara esta tecla a direita na li 
nha de baixo do teclado. 

Mantenha esta tecla preásionada para baixo 
com um dedo e aperte o "P" com um dedo da outra mão. 

Caso voce tenha feito tudo corretaraente o 
TK 90X lhe imprimira os dois caracteres em vermelho 
que aparecem na tecla P e na tela da T.V. poderá 


ver agora: 


PRINT" 


Ã estes dois caracteres ou "pinguinhos” cha 
ma-se de aspas. 

Agora tecle PRINT "Maravilhoso" 

0 que, não consegue fazer isto? 

Também, não expliquei como fazer para es¬ 
crever uma letra maiuscula e depois ter o resto com 
minúsculas...• 
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Ai vai, o procedimento para se obter isto. 

Em primeiro lugar vòcê deve fazer o seu 
TK 90X entrar no modo C (ja disse que C 5 a inicial 
de "capitais" que em inglês significa maiusculas). 

Mantendo apertada CAPS SHIFT pressione a 
letra M e veja como ela sai impressa como maiuscula. 

Caso voce queira permanecer neste modo por 
muito tempo basta apertar simultaneamente as teclas 
CAPS SHIFT e CAPS LOCK e aí todas as letras se¬ 
rão maiusculas. 

0 cursor ficara no modo C ate que voce 
saia do mesmo apertando novamente e simultaneamente 
CAPS SHIFT e CAPS LOCK . 

Repetindo, escreva 

PRINT "Maravilhoso" ENTER 


e a palavra "Maravilhoso" aparece na tela porem sem 
aspas e sem a. palavra chave PRINT . 

Ja da para concluir que se voce quiser que 
o TK 90X use palavras basta que as mesmas apareçam 
entre os sinais de aspas e apos o comando PRINT. 

Isto e valido para letras e numeros. 

Apenas para constatar a sua superioridade 
sobre o TK 90X mande o mesmo imprimir algumas opera 
çoes tais como 

PRINtI "3 + 4=9" [ENTER I 


PRINTl "10-5=4" ÍENTER 


Uê, ue, uê!!!?! I! 

0 meu, digo o seu, TK 90X nao sabe nem so¬ 
mar e nem subtrair? 

Resp.£ 0 seuTK 90X fez o que você mandou ele fazer. 
Ele nao somou 3+4 e tao pouco diminuiu 5 de 10. 

Ele apenas imprimiu o que voce mandou ele imprimir. 


11 


Note que — , + e = sao os caracteres 

vermelhos nas letras J,K e L respectivamente e para 
obter os mesmos voce deve manter pressionada a te¬ 
cla SYMBOL SHIFT enquanto aperta cada uma destas te 
cias . 

Tenteagora entrar com a seguinte mensagem: 

PRINT "A guerra nas estrelas e o maior pe¬ 
rigo da atualidade." 

É evidente, que para entrar com esta mensa 
gem, no final de tudo voce deve apertar a tecla 
ENTER ou seja logo apos o segundo conjunto de as- 


Note que para se obter os espaços em bran¬ 
co entre as diversas palavras voce deve apertar a 
tecla SPACE (espaço). 

Caso você cometa algum erro enquanto esti¬ 
ver teclando "pode .passar a borratha" no mesmo e pa 


CAPS 

SHIFT- 


1 avra 

DELETE 


impressa em branco acima da mesma. 

•Uma tradução para o DELETE pode ser elimi 
ne ou apague . 

Desta forma com esta operação gpaga-se o 
caractere imediatamente a esquerda do cursor. 

Você jã percebeu que o TK 90X mantem a li¬ 
nha de baixo para mensagens? 

Quando voce tecla uma instrução para o 
TK 90X ela sempre aparece nesta parte da tela. 

Também quando o TK 90X informa que esta tu 
do 0 Executado 0:1 o mesmo sai lã embaixo... 

Esta parte da tela ê chamada de espaço pa 
ra o trabalho . '" r 

0 TK 90X usa o resto da tela para fazer o 
que você mandar que ele faça. 
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Recordando 

PRINT " "—»►_ Diz ao TK 90X para imprimir na tela da T.V. 

tudo o que estiver dentro das aspas. 

As aspas nao irão aparecer na tela. 

Se voce mantem esta tecla pressionada enquan¬ 
to aperta uma- outra tecla, obterã o caractere, 
símbolo ou palavra-chave que aparece em ver¬ 
melho nesta t ecla-r 

Por exemplo, [SYMBOL SHIFTj e tecla "Z" lhe 
dara os dois pontos 

Se você mantem esta tecla abaixada enquanto 
aperta uma tecla que contêm uma letra, a mes¬ 
ma sera impressa n a forma maiu scula na tela. 
Caso voce utilize |CAPS SHIFT 1 com uma tecla 
que contêm um numero, obterá a função que apa 
rece em branco acima da tecla numérica. 

Pode-se apagar ou eliminar um caractere in¬ 
trod uzido errada mente mantendo abaixada a te¬ 
cla fCAPS SHIFT] enquanto voce aperta a tecla 
0 isto e abaixa-se as duas simultaneamente. 
Com esta ação apaga-se o caractere imediata¬ 
mente a esquerda do cursor. 





Capítulo 4 

Fazendo operações matemáticas 
no TK 90X 


Voce seguiu as minhas recomendações ate 
agora e não estas mais na estaca zero. 

Porem o seu aprendizado deve aumentar em 
velocidade e para tanto deves seguir a seguinte re¬ 
comendação: quando estiveres junto a mim (TK 90X)de 
ves estar tranquilo(a) relaxado(a) e sem nenhum ti¬ 
po de temor, visto que, a não ser que me maltrates 
fisicamente por mais absurdos que possas escrever 
não irás me machucar. 

Eu (TK 90X) irei auxiliand o-o (a) continua¬ 
mente indicando os seus erros e apresentando-lhe os 
resultados. 

Você pode aumentar a velocidade de leitura 
do livro e ir tão depressa quanto queiras com a con 
dição de que não titubeies em voltar para tras quan 
do achares isto necessário. 

Eu sei que você não sabe nada e por esta 
razão estou indo pouco a pouco, porem agora vamos 
um pouco mais rápido e voce deve se preparar para 
um esforço um pouco maior. 

Somas, subtrações, muit ipl icaçoes, divi soes 
e exponenciações serão importantes para cálculos ma 
temáticos, estatísticos, físico e por que não dizer 
ate para os jogos, gráficos e para a musica. 
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Somar, subtrair, multiplicar, dividir e 
elevar e algo muito simples para o seu TK 90X. 


Símbolo 

Significado para o TK 90X 

= 

me ordenam deixar "algo" IGUAL a "algo" 

+ 

me ordenam SOMAR 


me ordenam SUBTRAIR 

* 

me ordenam MULTIPLICAR 

/ 

me ordenam DIVIDIR 

* 

me ordenam ELEVAR 


Tabela 1 
Comece fazerido 
PRINT 

e em seguida aperte o 

No topo da tela aparece a resposta 7 e co¬ 
mo você percebe o seu TK 90X sabe somar. 

Note que no Capítulo 3 deu impressão que 
ele nao sabia fazer isto... 

Voce pode mandar o TK 90X fazer uma soma 
bem maior do que esta. 

Tecle 

PRINT 10+15+20+25+30+35+9999 

Assim que voce apertar 
lhe dã imediatamente a resposta 

em muito menos que um segundo . 

Vai ser rápido assim la nos... 

Voce pode subtrair, dividir, multiplicar. 


10 134 


ENTER o seu TK 90X 



elevar 
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Na Tabela 1 você jã notou que para indicar 
a multiplicação usa-se o asterisco no lugar do 
clássico "X", para a divisão usa-se a barra "/" e 
para a exponenc iaçao (elevaçao a uma certa potên¬ 
cia) a flecha para cima " + 

Teste a habilidade do seu TK 90X efetuando 
os seguintes cálculos. 


12.56636 

3.0388032 

265452.31 

1617065 

1.1920929E-7 

30 


ERINT 4*3.14159 -- 

PRINT 13/4.278 -:-- 

PRINT 5392 *640 / 13 - 

PRINT 4984*328 - 55555/3.141 

PRINT 13*2 - 13*13 -- 

PPTNT 2+£ + 2 + 1 + 2 + 2 + 2+1 



Não esqueça que em cada caso para sair o 
resultado indicado a direita você deve teclar o 

Cômodo e muito fãcil, nao ê? 

À ordem de prioridade com que o TK 90X rea 
liza as operações depende do operádor que intervêm. 


ENTER 



Tabela 2 


Para operadores de mesma prioridade, o 
TK 90X executara as operaçoes da esquerda para a di 
reita. 

Nestas condiçoes quando temos: 

4984*328 - 55555 /3.U1 
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o TK 90X faz a multiplicação (4984 *328) depois a 
divisão (35555/3.141) e finalmente subtrai este re¬ 
sultado do primeiro. 

As operações dentro dos parênteses se efe¬ 
tuam primeiro, seguindo dentro dos mesmos a ordem 
de prioridade indicada na Tabela 2. 

Caso haja vãrios níveis de parenteses, os 
mesmos sao abertos de dentro para fora. 

Assim para efetuar o calculo 

2,38 1,35 + 7 X3,35 
4,48 X325 - 777 

Basta escrever: 

PRINT (2.38 +1.35 + 7 * 3.35)/(4.48*325 - 777) 

Tecle ENTER e deve obter .039284065 

Com? treininho para sentir a destreza do TK 90X va¬ 
mos efetuar os seguintes cálculos: 




4,75 + 


3,98 X 7,47 - 19 


10,32 + |t|| - 5,25 0,21 


w „ . 2<28 1,28 4,73 

4,53 0,25 2,77 S, ’ 3:L 1,77 0 * 18 + 1 

Para obter os resultados,basta escrever 

a) PRINT (7*5 +.75 + 13)/(2*3.48 - 4) (fcNTERp 

h) PRINT (4.75+(3.98*7.47-19)/(3+.72-5.28))/(10.32+9.28/4.43 - 
5.25+.21) (ENTERD 

c) PRINT 4.53+2.28/4.53+.25+1.28/2.77+.31+.73/(1.77+.18+1)_ 

(lENTEq ) 
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Você deve obter as seguintes respostas: 

a) 12.299294 

b) 0.11453544 

c) 7.3724276 


Nao esqu eça então que: 

"+" —0 sinal de -'mais" diz ao TK 90X para adicionar o 
proximo numero ao anterior. 

"-" —*- 0 sinal de "menos" diz ao TK 90X para subtrair o nu 
mero seguinte do imediatamente anterior. 

"*" —o asterisco (ou a "estrelinha") ou o sinal de multi 
plicaçao ("vezes") diz ao TK 90X para multiplicar 
dois numeros. 

Nao use para a multiplicação o "antigo" X pois o 
TK 90X não entende isto como multiplicação. 

"/" —— A barra é o sinal de divisão para o TK 90X. 

Ele nao entende o símbolo ":" como sendo indicador 
da operaçao de divisão. 

"+" -*- Este ê o sinal para a operaçao de elevar a alguma 

potência (inteira ou decimal). 

É importante que na elevaçao a base sempre seja po¬ 
sitiva. 


-*. Este. e o símbolo para exprimir a IGUALDADE. 


"( )"—•» O que esta entre parênteses e sempre efetuado em 
primeiro lugar. A abertura de vários níveis de pa¬ 
rênteses ê sempre de dentro para fora. 








Capítulo 5 

Obrigado TK 90X pela sua memória!!! 


Voce sabe que o TK 9$X pode lembrar das 

coisas ? 

Voce pode pensar na memória do TK 90X como 
sendo constituida de milhares de caixas vazias. 

Em cada uma destas caixas de memória o 
TK 90X pode guardar ou armazenar um numero ou uma 
palavra que você queira que ele lembre. 

Suponha que você tem 27 camisas e 13 pares 
de sapatos. 

Olhe no teclado e ache o comando LET na te 

cia L. 

Tecle agora: 

LET camisas = 27 

Observe que não aparecem as aspas em torno 
da palavra "camisas". 

A razão disto e que a palavra "camisas" es 
tá sendo usada como rotulo para uma caixa da memó¬ 
ria e não como alguma coisa que o TK 90X tenha que 
imprimir (PRINT). 

Agora aperte ENTER . 

0 que aconteceu? 

Nao muito, cora exceção de que a sua última 
linha desapareceu. 
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Porem a mensagem 0 Executado 0:1 esta de 
volta e Isto significa que o TK 90X fez o que você 
pediu para ele fazer. 

Voce pode verificar isto, porém teclando 


PRINT camisas (ENTER ) 


agora 


Agora o numero 27 aparece impresso no topo 
da tela da T.V. e a esquerda. 

Como foi que o TK 90X fez isto? 

Bem, inicialmente ele achou uma caixa da 
memória rotulada com "CAMISAS" e "olhou" dentro da 


Àx ele encontrou o numero 27 e "copiou" o 
mesmo na tela deixando ainda o numero 27 nesta cai¬ 
xa de memória. 

Da mesma forma voce pode ensinar o TK 90X 
a lembrar o número de pares de sapatos que voce tem. 


LET sapatos = 13 (ENTER ) 


Escreva 


0 TK 90X sabe agora quantas camisas e pa¬ 
res de sapatos voce possui. 

Para que voce tenha certeza disto basta te 
ciar e entrar (ENTER) com as seguintes linhas: 

PRINT camisas ( ENTER ) 

PRINT.sapatos ( [ENTER] ) 

e note que os números 27 e 13 aparecem na tela. 

Para que o TK 90X possa somar os artigos 
de vestüãrio que voce possui basta escrever 

LET artigos = camisas + sapatos ( ENTER ) 

0 Executado 0:1 diz o seu TK 90X não e? 

Bem, agora tecle 

PRINT artigos ( ÍENTER I.) 
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e voce vera na tela a resposta 40. 
Explicando melhor 


0 nome real para estas caixas de memória e 
variável numérica, 

Este nome nasceu na língua dos "computado¬ 
res" e significa que voce pode variar ou modificar 
o número aí armazenado tantas vezes quantas voce 
queira e como queira. 

A sua liberdade junto com o TK 90X ê qua.se 
indefinida. 

Não existem na realidade milhares destas 
caixas dentro do TK 90X, porém esta é uma forma bem 
simples para pensar (não compreender) como ê a memó 
ria do seu super-micro. 

Você agora não pode esquecer a função do 
importante comando LET cuja forma geral i 

LET variável 55 qualquer nútàero 

e que diz ao TK 90X para fazer com que uma letra ou 
uma palavra ou ainda uma letra seguida por um núme¬ 
ro (a qual chamamos de variável) se torne igual . a 
algum número. 

Por exemplo 


LET galinhas = 37 
LET perus = 6 

LET patos = 16 


( I ENTER j ) 

( [enter 1 ) 
(Ienter 1) 


fará com que o TK 90X armazene o número 37 na caixa 
de memória com o rotulo "galinhas", o número 6 no 
rótulo ou seja na variável numérica "perus" e 16 na 
variável numérica "patos". 

Por outro lado 


LET aves = galinhas + perus + patos 


(ÍENTER ) 
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fara com que o TK 9jÔX guarde na caixa da memória 
com o rotulo "aves" o- número total de animais que 
neste caso ê igual a 59. 

Para que este número apareça na tela basta 

agora voce teclar 

PRINT aves ( IeNTERI ) 

0 nome de uma variável numérica pode ser qualquer 
combinação de letras, dígitos (0 ate 9) e espaços 
desde que o primeiro caractere seja sempre uma le- 


Assim 


CUSTO ALTO 

Delta 

V. 

são nomes validos para variáveis. 

Cuidado que uma variavel nao pode ser 're¬ 
presentada por 3X, 5A, etc. 

0 TK 90X também não distingue entre letras 
minúsculas e maiusculas no nome de uma variavel e 
ignora também os espaços em branco. 

Desta maneira para o TK 90X 
/ 

Delta 
DELTA 
j delta 
Del ta 


e o nome para uma mesma variavel numérica 

A eletrônica do TK 9$X esta essencialmente 
constituída por ura microprocessador modelo Z80, que 
cumpre a função da unidade central de processarnento 
(uvc.p.). 
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Este microprocessador e muito comum também 
em outros microcomputadores. 

Alem disto tem-se os "chips” de memória. 

Entre estes deve-se distinguir os que "me¬ 
morizam" a informação de forma permanente e saem 
gravados da fábrica, de acordo com as instruções do 
projeto da Microdigital (memória ROM Read Only 
Memory) e aqueles cuja capacidade de memória desapa 
rece quando se corta a corrente elétrica (memória 
RAM - Random Access•Memory). 

A memória ROM contem muitas rotinas espe¬ 
ciais escritas em linguagem de maquina. 

Toda vez que o TK 90X está ligado, o micro 
processador Z80 executa uma ou outras das seguin¬ 
tes rotinas 

- Permite entrar ou editar um programa. 

- Executar o seu programa escrito em BASIC. À ROM contem 
o conjunto de "regras" que o Z80 usa para interpretar 
cada comando ou função em BASIC e desta forma efetuar 
o que você escreveu. . 

-Sentir se alguma das teclas foi•pressionada. 

- Imprimir na tela ou na impressora as informações. 

- Salvar ou seja armazenar em uma fita cassete o seu 
programa ou ainda carregar da fita cassete para a me¬ 
mória do TK 90X. 

- Contém os padrões ou modelos de pontos usados para 
formar os caracteres na tela da T.V. ou na impressora. 

Mais uma vez insisto que toda esta informa 
ção esta fixa no chip ROM quando ele ê produzido. 

Voce pode facilmente ler o que existe no 
mesmo porem não pode alterar qualquer parte da in¬ 
formação guardada na ROM. 

A memória RAM por outro lado e bem mais 

flexível. 
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Alem de permitir que se leia o que esta ar 
mazenado na memória RAM voce (ou o microprocessador 
Z80) pode alterar aquilo que esta aí,escrevendo no¬ 
vas informações. 

A unica desvantagem desta memória e que 
ela õ volátil òu seja o conteúdo da mesma e perdida 
se for interrompida a corrente eletrica. 

A RAM ê dividida em varias áreas e entre 
elas destacam-se: 

J - Ãrea para o arquivo da tela e atributos. 

I - Ãrea para o programa em BASIC ou seja onde e 
< guardado o seu programa. 

- Ârea para as variáveis, usada para guardar os 
dados variáveis para o seu programa. 

Uma das coisas que atiça a curiosidade dos 
(das) noviços(as) em computação e a forma como e me 
dida a memória do TK 90X. 

Aí e que vem a duvida sobre o que sao by¬ 
tes , bits e K '.?:?:?! 

A memória do TK 90X e organizada de tal 
forma que se possa seguir o microprocessador, que 
sendo um dispositivo binário "sente-se feliz” quan¬ 
do pode trabalhar com números com potências de 2. 

Também o chip processador necessita que a 
memória seja organizada de uma' forma uniforme. 

Vamos agora pensar' na memória, do TK 9J&X co 
mo uma linha bem longa de caixas idênticas. 

As caixas são numeradas consecutivamente, 
de forma que o microprocessador pode usar este nume 
ro ou endereço para escolher uma particular caixa. 

Em cada posição (isto e em cada "caixá"), 
está um numero binário formado por 8 "bits" ou dígi 
tos binários os quais podem ser "0" ou "1". 
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Um grupo de 8 bits e chamado de 1 byte. 

Existem 256 (2 elevado a 8) arranjos com 
repetição de 2 elementos ("0 e "1") atribuídos a 8 
posições de forma 'que pode-se pensar em cada posi¬ 
ção da memória como contendo um numero inteiro, na 
base dez, no intervalo de 0 ate 25,5. 

0 TK 90X pode, naturalmente, manipular nu¬ 
meros fora deste intervalo, assim como as frações e 
para fazer isto utiliza um grupo de 5 bytes. 

No total o microprocessador Z80 do TK 90X 
pode manipular 65536 (2^) diferentes posiçoes da 
memória. 

0 primeiro quarto destas posições e tomado 
pela memória ROM e dependendo do modelo as -'restan¬ 
tes posições sao parcialmente ou comp1et amente ocu¬ 
padas pela memória RAM. 

Uma forma simplificada de se referir ao ta 
manho da memória e utilizar a abreviatura "K" para 
representar 1024 (2^ = 1024) bytes. 

Desta forma o TK 90X pode manipular 64 by¬ 
tes de memória, 16 K da qual e ROM e' as restantes 
48K podem ser de memória RAM. 


Note que 16 X 1024 = 16384 
48 X 1024 = 49152 



Tabela 3 
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Para perceber isto veja quanto e 

( 11011011) 2 

na base 10. 

A forma'para obter esta conversão e: 


1 101 1 01 1 


( 11011011) 2 = 


if. 

= 1x2 7 + 1x2 + 0x2 d + lx2 4 + 1x2 J +0x2 Z +1x2 í +1x2 SÍ 


* 


— 128 + 64 +0+16+8+0+2+1= (219). 


Eostre que (11111111) 2 = (255) 




Capítulo 6 

Lembrando das letras e das cadeias 
de letras 


0 TK 90X pode. também lembrar de palavras e 
de sentenças. 

Ele tem oaixas especiais para armazenar se 
qüencias alfabéticas ou alfanuméricas. 

Porém para usar uma caixa especial para 
uma cadeia ou sequência de caracteres (STRING) voce 
precisa utilizar um rotulo todo especial. 

Ele precisa ser uma únicà letra seguida pe 
lo caractere cifrão (ou dollar) 

Assim, caso você queira que o TK 90X lem 
bre um nòme pode. chegar a este fim escrevendo: 

LET n$ = "Sacha" ( [ÊnTEr] ) 


[ o.I, J Tecle o seu proprio nome no lugar de "Sacha" 
que e o diminutivo em russo do nome do meu filho ca 
çula porém não esqueça de apresenta-lo entre aspas... 

Para vejrificar se o TK 90X lembra ainda 
este (ou o seu nome) basta teclar 

PRINT n$ ( [ENTER] ) 

0 TK 90X pode também lembrar de uma senten 
ça completa. 

Tente agora 

LET s$ = "As negociações serão um complexo de ques- 
tões re lativas ao espaço e armas nucleares." 

( IenterI) 
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Agora tecle 

PRINT s$ ( ENTER ) 

e veja como sai impresso na parte de cima da tela a 
frase: "As negociações serão um complexo de ques¬ 
tões relativas ao espaço e armas nucleares". 

Caso você use a letra maiuscula "S" no lu¬ 
gar da minúscula "s" será que a mensagem e ainda a 
mesma. 

Para verificar tecle: 

PRINT S$ ( ENTER ) 

0 que aconteceu? 

Como voce pode ver o TK 90X nao' reconhece 
a diferença entre rõtulos com letras maiusculas e 
aqueles com letras minúsculas. 

Qualquer uma das 26 letras do alfabeto po¬ 
de ser usada para rõtulos ou seja para as variáveis 

STRING. 

Desta maneira, no lugar de n$, para guar¬ 
dar um nome voce pode usar tanto A$ como Z$. 

Ê entretanto uma boa ideia escolher como 
inicial para a variável STRING uma letra que tenha 
alguma associaçao com o que existe nesta caixa. 

Uma coisa que e muito importante voce en 
tender (e não esquecer) e que uma caixa de memória 
pode armazenar uma STRING de cada vez.. 

Desta forma se voce escrever: 

LET n$ = "Joana" ( ENTER) 

e aí então você colocar um outro nome nesta caixa 

LET n$ = "Cristina" ( ENTER ) 

quando você tecla 
PRINT n$ 
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o seu TK 90X ira imprimir o último nome ou seja 
"Cristina". 

Ê, para o TK 90X ê bem fácil!!!! 

Ele sempre sõ lembra da última e a imedia¬ 
tamente anterior é totalmente esquecida... 



um grupo de 


argão do "computadores", 
caracteres que aparecem 


a palavra 
entre as 


para 

aspas 


e STRING. 


Uma variável pode armazenar uma STRING que 
pode ser uma coleção de caracteres alfabéticos ou 
gráficos ou ainda outros tipos de símbolos existen¬ 
tes no teclado do TK 90X. 

No TK 90X uma STRING pode ter qualquer com 
primento desde nada ate uma STRING bem comprida cujo 
comprimento tem como limitaçao somente a quantidade 
de memória disponível. 

Uma STRING com nada entre os sinais de as¬ 
pas ("") é chamada de STRING vazia, 

Voce verá no final deste livro nos progra 
mas aplicativos, por incrível que possa parecer, a 
grande utilidade das STRINGs vazias. 

AÍ vai por exemplo uma forma para indicar 
ao TK 90X como esquecer totalmente algo 

LET n$ = "" ( ÍENTERÍ ) 

Portanto,a nova instrução que você conhece 

agora ê: 

RESUMINDO : 

Caso voce utilize um rotulo consistindo 
unicamente de uma letva seguida pelo cifrão "$" o 
TK 90X irá armazenar o que segue entre as aspas em 
tipo especial de caixa de memória. 
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Este tipo de variável e chamado de variá¬ 
vel STRING. 

Còntrariamente as variáveis numéricas (que 
contem somente numeros) as variáveis STRING podem 
conter qualqüer tipo de informação incluindo nume¬ 
ros, palavras, caracteres gráficos e símbolos espe 
ciais. 

Não esqueça que o TK 90X trata as letras 
maiusculas de forma idêntica as minúsculas de forma 
■que X$ tem o mesmo significado para o seu super-mi- 
cro que x$. 




Tecle èntao o "mini-mini" exemplo 

10.x$ = "Sérgio" 

20 PRINT x$ 

30 PRINT X$ 

Ao executar^ lRUN^ sairã: 

Sérgio 

Sérgio 


Capítulo 7 

Finalmehte escrevendo o seu 
primeiro programa!!! 


Ate agora o TK 90X tem feito tudo que vo¬ 
cê lhe pediu imediatamente. 

Cada vez que vòce queria que o TK 90X fi¬ 
zesse algo novo 3 tinha que teclar uma nova instru¬ 
ção. 

A esta forma de utilizar o TK 90X chama- 
se modo -imediato . 

Mas o seu TK 90X pode fazer coisa muito me 

lhor I • ! 

Ele pode lembrar longas listas de instru¬ 
ções ; as quais chamaremos de PROGRAMA. 

Você ainda lembra quais eram os itens no 
Capítulo 5 que compunham o seu vestuário? 

Inicialmente, voce teclou os dois tipos 
que lhe interessavam (camisas e sapatos) e depois 
efetuou a soma dos mesmos. 

Para transformar as instruções do modo ime 
diato para o modo programado e desta forma consti¬ 
tuir um programa tudo que voce deve fazer ê acres¬ 
centar um número de linha na frente de cada instru¬ 
ção. 

Os números de linha dizem ao TK 90X a or¬ 
dem na qual voce quer que as instruções sejam exe¬ 
cutadas . 






32 


Ances de teclar um novo programa, você de¬ 
ve apertar a tecla marcada com VA", no qual esta 
escrito em branco a palavra-chave NEW . 

Ai aperte ENTER . 

Com istc, limpa-se a memória do TK 9ÔX e 
se evita que você tenha que tirar o "plug" da toma- 
daa toda hora. 

Tecle agora o seu primeiro programa 

' \ 

PROGRAMA- 1 J 

10 LET camisas = 27 

Voce nao esqueceu que caso cometa algum er 
ro basta apertar | CAP S SHXFT e 0 para corrigir a 
ultima posição imediatamente a esquerda do cursor. 

Depois de- ter apertado ENTER , você nota- 
rã que esta linha ira reaparecer no topo da tela. 

Continuando a teclar o programa entre com 
as linhas restantes 

20 LET sapatos =13 ( ENTER ) 

30 LET artigos = camisas + sapatos ( ENTER ) 

40 PRINT artigos ( ENTER| ) 

Ate agora nao aconteceu nada, exceto que 
cada linha aparece na' sua ordem correta no topo da 


Aperce agora a tecla "R" na qual em branco 

esta escrita a palavra chave [mEI- 

- -- 

AÍ, a seguir aperte o ENTER . 

Caso você tenha teclado tudo corretamente, 
aparecera o numero 40 no topo da tela. 
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Explicações adicionais sobre a entrada do 
programa e as dificuldades que podem ocor 
rer no decurso do mesmo 

Comumente, quando voce pressiona a tecla 
ENTER após ter ^teclado uma linha do programa o 
TK 90X faz com que a tela da T.V. fique branca por 
um momento. 

Então ele escreve a linha no topo da tela 
e imprime o | K | piscando no espaço de trabalho na 
parte baixa e a esquerda da tela. 

0 [ K~j significa que o TK 90X aceitou a li¬ 
nha do programa e estã esperando que voce tecle uma 
palavra chave (tal como (~RUn 1 ) ou um outro numero 


de linha do programa. 

Ocasional me nte (assim espero...)você pode¬ 
rá se ver frente a situaçao na qual o TK 90X recu¬ 
sa-se a fazer isto. 

Caso você olhe cuidadosamente,provavelmen¬ 
te verá um sinal de interrogação piscando 11 [’ ? j 11 em 
algum ponto da linha que ha popco teclou e que nao 
quer subir pois aí existe algum tipo de erro . 

Por exemplo, se voce esqueceu de teclar o 
sinal de igual "=" na linha 30, a sua linha terã o 
seguinte aspecto. 

30 LET artigos camisas + sapatos 

Quando voce apertar ENTER , o TK 90X pro¬ 
vavelmente imprimira ura ponto de interrogação onde 
ele acha que você cometeu um erro, isto ê aparecera: 


30 LET artigos camisas? + sapatos 

Esta e uma característica extremamente util 
do BASIC do seu TK 90X. 
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0 TK 90X verifica cada linha que você te¬ 
clou antes de aceitar a mesma quanto a ewos de szn 
taxe . 

Para corrigir este erro utilize CAPS SHIFT 
e 0 (zero) para apagar tudo atê chegar ao ponto de 
interrogação.- 

Então voce pode rebater todo o resto da 
linha corretamente. 

30 LET artigos = camisas.+ sapatos 

Agora, quando você pressionar a teclar 
ENTER a linha corrigida irã atê o topo ocupando o 
seu lugar correto. 

Um outro problema com o qual você pode se 
defrontar ê aquele no qual a linha parece que foi 
aceita porem nada aparece no topo da tela. 

Ao invês disto, você pode ler mensagem co¬ 
mo __ 

í 0 Executado 0:1 J 

no espaço de trabalho . 

Isto provavelmente significa que voce es¬ 
queceu de teclar o número da linha e o seu TK.90X 
pensa que voce mandou.uma instrução em modo imedia- 


Não se preocupe e aperte logo o ENTER ou 
tra vez que as linhas do seu programa reaparecerao 
novamente na tela. 

Rebata a linha que se perdeu e fique tran¬ 
quilo ( a) . . . 

Espero que no seu caso particular apareça 
no canto baixo da esquerda a mensagem 

^ 0 Executado 40 ; 1 ^ 

com a qual o seu TK 90X indica que tudo correu bem!! 
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Terminando este capitulo nao esqueça que: 

5. toda serie de instruções que você 
quer que sejam executadas em uma par 
ticular ordem chama-se de pvogvama . 

A cada instrução e dado um número de 
linha. 

Normalmente, no lugar de numerar as 
linhas com 1,2,3,4,,etc . ,.. . voce d 
ve numera-las de 10 era 10 (10,20,30, 
40,etc.) de forma que você tenha es¬ 
paço para inserir linhas adicionais 
caso isto seja necessário. 


do TK 90X de qualquer programa ante 
rior. 

Tecle sempre o NEW antes 'de teclar 
um novo programa, porém esteja certo 
de que o programa antigo tenha sido 
armazenado em uma fita se ele ê real 
mente importante para você, 


NEW 


Com este comando limpa-se a memória 



RUN 


Diz ao TK 90X para executar as ins¬ 
truções começando com aquela de me¬ 
nor número de linha no seu programa. 
Portanto a ordem RUN seguida claro 
da executiva ENTER fará com que o 
TK 90X entenda que o seu desejo ê 
que ele (TK 90X) "corra" (RUN) o pro 
grama ou que e a mesma coisa, ponha 
o mesmo em movimento ou em explora- 


• n> 






Capítulo 8 

Aprendendo a editar e corrigir erros 


Existe uma forma bem simples de corrigir 
linhas de programa e diferente da utilizada ate ago 
r a. 

Pratique bastante no sistema de edição 
(EDIT) e logo você serã muito mais rãpido que o ven 
to deslocando-se como um "superman" para todos os 
pontos da tela. 

Inicialmente tecle o seu segundo e curto 

•programa. 


PROGRAMA 2 J 

10 LET galinhas - 37 ( [ ENTER j ) 

20 LET perus = 6 ( | ENTER | ) 

30 LET patos = 16 ( j ENTER j ) 

40 LET aves = galinhas+perus+patos ( ENTER~| ) 
50 PRINT aves ( |ENTEp] ) 


Imagine, por um momento, que você contou 
ou adquiriu um novo peru e quer aumentar "perus" na 
linha 20 para 7. 

Caso voce ja tenha executado o programa 
pressione ENTER para obter a listagem do mesmo de 
volta. 

Agora olhe para as teclas 5,6,7 e 8. 
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Voce conseguiu notar as flechas brancas que 
existem acima destas teclas? 

Mantenha pressionada a tecia CAPS SHIFT 
e aperte a tecla "6" que tem impressa acima a fle¬ 
cha (ou seta) para baixo. 

A ppnta de uma seta ou ponteiro (>) ira 
aparecer na listagem logo apÓs o primeiro numero 
de linha (no nosso caso particular o numero 10).Cha 
ma-se a este ponteiro de cursor da linha de progra- 


Aperte de novo CAPS SHIFT e "6" outra vez 
para levar o cursor da linha de programa para baixo 
ou seja para a linha 20. 

Agora, mantenha abaixada a tecla CAPS SHIFT 
e aperte a tecla "1" que tem escrita acima de si a 
palavra EDIT . 

Isto farã com que uma copia da linha apare 
ça no espaço de trabalho. 

20 LET perus = 6 

Mantenha ainda a tecla CAPS SHIFT abaixa 
d? e neste momento aperte a tecla "8" (flecha para 
a direita) varias vezes ate que o cursor L esteja 
no fim da linha. 


20 LET perus = 6 □ 


Agora ê que chegou a hora de usar CAPS SHIFT 

e 0 para apagar (DELETE) o 6 e então teclar o 7. 

r —. “ “ ~i 

Aperte o ENTER e a linha corrigida subi¬ 
ra para à sua posição correta ou seja 

20 LET perus = 7 

0 cursor da linha de programa (>) estarã 
novamente na linha 20 para que voce nao esqueça que 
esta foi a ultima linha teclada. 
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Execute (RUN) o programa e então aperte o 
para ter a listagem completa do programa no 

vamente. 

Use a flecha para baixo (como explicado ha 
pouco) para levar o cursor da linha do programa pa¬ 
ra baixo e neste instante para a linha 50. 

Então, edite a linha 50 embaixo, no espaço 
de trabalho. 

50 PRINT aves 


ENTER 


Neste momento, use a tecla da flecha para 
a esquerda ( CAPS SHIFT e tecla "5") para mover o 
cursor uma posição para a esquerda. 


5 K 0 PRINT aves 


Utilize CAPS SHIFT e 0 para apagar 
(DELETE) o "5" e teclar o "6" para mudar a linha 50 
para 60. 

Us'e agora a flecha para a direita (nao es¬ 
queça da CAPS SHIFT ) para mover o cursor para o 
espaço após o PRINT. 

60 PRINT 0 aves 

Tecle agora íC"—^^ *V 

^Espaço em branco^(_/, 

"Aves =□" ; ^ 

para tornar a nova linha 60 com o seguinte conteúdo: 


60 PRINT "Aves =Q" í aves 


Veja o significado 
deste ponto e virgula 
(;) no Capitulo 9 


Esteja certo que incluiu ambos os conjun¬ 
tos de aspas e o símbolo (vermelho) de ponto e vír¬ 
gula";" que voce encontrara sobre a tecla 0. 

Quando voce apertar o ENTER , a linha mo¬ 
dificada entrara na listagem acima, mas a antiga 
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linha 50 tarabêm aparecera. 

Caso voce queira eliminar totalmente a li¬ 
nha 50 tecle simplesmente: 

50 ([ENTER!) 


Agora execute ( |RUN| ) o programa revisto. 

Pratique o mais que puder a edição usando 
as teclas com as flechas ate que voce possa editar 
linhas, fazer mudanças, inserções e eliminações ra¬ 
pidamente e sem nenhuma dificuldade... 

Nao esqueça então o conceito básico deste 
capitulo que ê o EDIT . 

0 sistema de edição (EDIT) lhe permite fa 
zer mudanças em um programa existente corrigindo 
pa'r ti cu 1 ar es linhas no lügar de rebater trechos do 



Capítulo 9 

O comando INPUT, um novo e 
futuro grande amigo seu 


Se a apalavra-chave PRINT foi ate este pon 
comando favorito, a prõxíma palavra-chave 
neste rol ê 

Com o auxílio deste comando voce poderá 
economizar muito do seu tempo dedicado a teclar. 

Caso voce queira informar algo ao TK 90X, 
como por exemplo o numero de camisas, sapatos,perus 
etc. que possui, nao sera mais necessário faze-lo 
através de instruções do tipo: 

30 LET patos = 16 

Alias, esta forma de definir o valor.de uma 
variável e bastante inadequada quando se quer modi¬ 
ficar alguma informação pertinente ã mesma. 

Para mudar o numero de "patos”, você deve 
editar (EDIT) ou rebater esta linha do programa. 

6 neste capítulo, que ensinarei a voce,uma 
forma mais simples de fazer isto usando a palavra- 

chave (branca). _ 

INPUT 

a qual voce encontra na tecla "I". 

Tecle agora o seu terceiro (e ainda curti* 
nho) programa. 


INPUT 


to o seu 
a entrar 
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Nao esqueça de teclar o ENTER apos cada 


linha. 


Alias jã considero isto como um habito ado 


tado e daqui para frente poucas vezes iremos repe¬ 
tir isto no final de cada linha. 



10 PRINT "Qual ê o seu nome?" 
20 INPUT n$ 

30 PRINT "Como vai você" 

40 PRINT n$ 


Antes de executar ( RUN ) o programa tente 
advinhar o que farã o mesmo. 


Ai vai a explicação de como ele opera. 


Linha 10—►Você usou o seu "velho amigo" PRINT para impri¬ 
mir uma pergunta na tela da T.V. 

Linha 20 —►A linha com o comando INPUT faz com que o TK 90X 
pare e espere que você tecle algo. 

0 cifrão "$" apos a letra "n" diz ao TK 90X que 
voce deseja que ele aguarde por uma STRING de ca¬ 
racteres (neste caso, o seu nome), a qual ê arma¬ 
zenada na caixa da memória que foi rotulada n$. 

0 TK 90X ficara esperando para sempre ou até que 
voce aperte a, tecla ENTER para informar que ter 
minou ’dé teclar. 

Quando voce terminar de teclar e pressionar a te¬ 
la [eNTER , o TK 90X deslocar-se-S para a próxima 
linha do programa - linha 30. 

Li iha 30—►AÍ, simplesmente se imprime a mensagem "Como vai 


voce . 
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Linha 40— *-Indica ao TK 90X para olhar na caixa de memória 

que se chamou de n$ e imprimir tudo que estiver 

contido dentro da mesma, na tela da T.V. 


Execute ( [RUN| ) o programa mais uma vez pa 
ra verificar se entendeu tudo o que foi dito hã pou 


w 


Melhorando o seu terceiro programa 


Agora voce ja sabe como o programa traba¬ 
lha e pode-se fazer algumas mudanças no mesmo com o 
intuito de melhora-lo. 

Inicialmente, se voce quer experimentar o 
programa com um(uma) amigo(a) que nada saiba sobre 
micros, ele (ou ela) logo ficara gamado(a) pelo. 

TK 90X. 

0 seu (a sua) amigo(a) p.ode nao perceber 
que o TK 90X quer que voce tecle o seu nome. 

E ainda mais, certamente não percebera que 
você precisa apertar a tecla ENTER para fazer com 
que o programa continue. 

Em outras palavras o programa não ê "muito 
amigável" ou seja nao e auto instrutivo osuficiente 
para pessoas que nao entendem de micros ou mesmo 
que não tenham conhecimento prévio do programa. 

Desta forma no lugar de perguntar simples- 


"Qual e o seu nome?". 

seria muito mais explicativo e educado para o(a) 
usuãrio(a) dizer: 

"Por favor, tecle o seu nome e depois aperte a te¬ 
cla IenterI" 


Realmente,voce pode fazer algo mais com o in - 
tuito de diminuir oseu tempo de digitação no futuro. 
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Há uma forma especial de uso do comando INPUT no 
qual se pergunta e ao mesmo tempo se entra com ares 
posta como por exemplo: 

INPUT "Qual e o seu nome?" 

INPUT pode também receber a resposta, colo 
car a mesma na caixa da memória e tudo isto na mes 
ma linha do programa como': 

10 INPUT "Qual e o seu nome?";n$ 

Você notou a presença do ponto e vírgula 
(;) antes do n$ ? 

Ê muito importante incluir o ponto e vírgu 
la (;) pois caso contrário o TK 90X se recusara a 
aceitar esta linha do programa. 

0 ponto e vírgula e o símbolo vermelho que 
esta na tecla 0. 

Desta forma torne o seu programa auto ex¬ 
plicativo e otimizado com a.seguinte linha 10 (no¬ 
va) : 

10 INPUT "Por favor, tecle ò seu nome e depois 
aperte a tecla ENTER";n$ 

Depois de ter feito isto, ê obvio que de¬ 
ve-se eliminar a antiga linha 20 o que se consegue 
entrando cora: 

20 ( |eNTER| ) 

Olhe agora no seu programa e observe que a 
linha 20 desapareceu. 

Execute (RUN) novamente o programa. 

Voce notou alguma diferença? 

No lugar de se imprimir a pergunta no to¬ 
po da tela, o comando INPUT imprime a mensagem no 
espaço de trabalho,na parte de baixo da tela. 
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Você pode mandar o TK 90X fazer isto de uma 
forma bem simples, acrescentando no final da linha 
30 um ponto e vírgula (;). 

Os pontos e vírgula (;) tem um significado 
muito especial para o TK 90X, 

Eles informam ao TK 90X que a impressão de 
ve começar imediatamente apos e nao numa nova li¬ 
nha. 

Edite (EDIT) a linha 30 para que no final 
tenha o seguinte aspecto: 

30 PRINT "Como vai voce"; 


Quando você executar (RUN) o terceiro pro¬ 
grama, já revisto, vera no topo da tela algo assim: 



Melhor, mas ainda não totalmente o que se 


queria... 

Vocè precisa de algum espaço entre as pala 
vras "voce" e "Victor". 

Edite a linha 30 e inclua.dois espaços em 
branco apos a palavra "voce" e antes das aspas 
30 PRINT "Como vai voceQQ"; 
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Quando você estiver fazendo isto, por que 
não tentar acrescentar o "n$" da linha 40 no final 
da linha 30? 

Isto ja funcionou na linha- 10 com o INPUT 
de forma que tente agora. 

30 PRINT "Como vai voc soer ;n$ 


Aperte ENTER e a linha se deslocara para- 
cima substituindo a antiga linha 30 na sua listagem. 

Antes de executar (RUN) o programa revis¬ 
to pela segunda vez, você precisa eliminar a linha 
40 e para tanto basta teclar 

40 ( IeNTErTI ) 


Agora execute o programa. 

Está como se queria e com um programa bem 
menor, não ê? 

Neste ca p itulo as novas instru çõ es foram: 

INPUT variável —►Diz ao TK 90X para esperar ate que um nu 
numérica mero seja teclado. 

- 0 comando INPUT está na tecla I 

INPUT variável —►Diz ao TK 90X para esperar ate que entre 
STRING uma letra, palavra ou uma cadeia 

1 “ (STRING) de caracteres. 

INPUT "mensagem”;n$ — ►Permite, que voce envie uma mensagem 

— - (entre aspas) e apSs isto espera a 

JflHK entrada de uma variável STRING que deve 

Wf*' ílf aparecer separada da mensagem por um pon 

|r ' ^ to e virgula (;). 

V k—Veja agora se entende os programas l,2,e 3 
do Capitulo 23. 

Vá atê lá e depois de entende-los volte ao 
Capítulo 10. 


Capítulo 10 

Divertindo-se com a programação 


Agora você ja não é tao ne.ífito(.a) em pro¬ 
gramação e desta forma vamos ao quarto programa, 
mais longo e totalmente comentado. 

Se o terceiro programa (Capítulo 9) não 
está mais no seu TK 90X tecle 



10 INPUT "Por favor, tecle o seu nome'e depois 
aperte a tecla ENTER" ;n$ 

30 PRINT "Como vai vocêDÜ";n$ 

Acrescente agora as seguintes linhas: 

40 PRINT 

50 PRINT "O meu nome ê TK 9)Sx" 

60 PRINT 

70 PRINT "Diga-meQD" ?n$ 

80 INPUT "Qual ê a sua idade?00";idade 
90 PRINT 

100 PRINT "Céus-D" ; idade; "DOanos de idade!” 
110 PRINT "Você ê bem mais velho do que eu!" 

Atê este ponto convem ressaltar alguns de¬ 


talhes . 


Inicialmente, esteja seguro de incluir to 
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dos os pontos e vírgula (;) ou o seu TR 90X se recu 
sara terrainanteiaente a ■ aceitar estas linhas. 

Não esqueça de incluir os espaços em bran¬ 
co (□) onde eu os coloquei, isto ê, dentro dos tre¬ 
chos entre.aspas. 

Por exemplo, na linha 80 os dois espaços 
em branco sao colocados para separar a pergunta do 
valor numérico, correspondente a sua idade. 

Também na linha 100 incluimos vários espa¬ 
ços em branco para se ter uma saida simples de ler!! 

Nao se preocupe, se uma linha é tao com¬ 
prida que vai para a outra linha da tela, como e o 
caso por exemplo da linha 10. 

Fica por conta do TK 90X interromper uma 
linha onde ele achar necessário. 

Voce provavelmente nao vai ter muita difi¬ 
culdade em achar a maior parte dos sinais de pon¬ 
tuação, todos em vermelho.. 

Nao esqueça que para isto se deve utilizar 
a tecla (em vermelho) SYMBOL SHIFT e aí se obtem 
qualquer coisa que esteja em vermelho. 

Tome cuidado para nao confundir a vírgula 
(,) que está na tecla "N" com o apostrofe "'" que 
está na tecla "7". 

Antes de executar (RUN) o programa voce po 
de advinhar qual ê a função do comando PRINT que 
aparece nas linhas 40, 60 e 90? 

Bem, execute (RUN) o programa para ver se 
voce estava certo! 

Você achou que um PRINT sem nada apos o 
mesmo significa que deve-se imprimir (PRINT) uma li 
nha vazia deixando ura espaço entre as outras linhas 
e fazendo com isto que o que se exibe na tela seja 
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mais simples de ler? 

Parabéns bicho (gatinha)!!!! 

Caso seja possível, mantenha este programa 
na memória do TK 90X, pronto para ser incrementa¬ 
do!!! 

Os(as) habituados(as) com microcomputado 
res referem-se a uma lista de linhas de programas 
como sendo uma listagem . 

No TK 90X você pode listar (LIST) qualquer 
parte de um programa, desde que o programa tenha si 
do parado apos apertar-se duas vezes a tecla ENTER 
ou pressionando a tecla "K", a qual tem a palavra- 
chave LIST impressa sobre a mesma, sempre que o 
cursor K estiver na tela da T.V. 

No momento, o seu programa e ainda bem cur 
to, de forma que você pode ver todo o programa lis¬ 
tado na tela ao mesmo tempo. 

Mais tarde você quererá ver partes de pro¬ 
gramas compridos, tao compridos que so da para ver 
trechos dos mesmos. 

Tente isto, teclando para o ultimo (quarto) 


programa' 




LIST 50 ( ENTER ) 


Oi a obse rvação sobre 
o |ENTER} para entrar 
com algo no TK 90X 


v -'—£$> Com este comando o TK 90X ira mostrar para 
você todas as linhas da 50 em diante. 

Teste o que acontece se voce teclar 


LIST ( IENTERj ) 

sem um numero de linha e então com diversos numeros. 

Nos já vimos que o TK 90X ê muito bom cora 
as operações de somar, subtrair, multiplicar, divi- 
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dir e elevar a uma certa potência (Capítulo 4). 

Para tornar, os programas mais interessan¬ 
tes, vou incluir a partir deste ponto algumas li¬ 
nhas que contenham fõrmulas matemáticas bem simples. 

Liste (LIST) seu ultimo programa para ver 
se existem quaisquer numeros com os quais pode-se 
obrigar o TK 90X a operar. 

É isto aí, na linha 80 você entrou cora a 
sua idade e e com ela que vamos brincar um pouco. 

Nao esqueça que qualquer coisa que esteja 
em uma caixa de variável numérica pode ser tratada 
como um numero comum ou seja ser usado em operações 
algébricas. 

Não se amofine e nem esquente a preciosa 
"cuquinha" antes do tempo. 

Por enquanto tecle as seguintes linhas que 
devem ser incorporadas ao seu quarto e último pro¬ 
grama : 

120 PRINT 

130 LET velho * 70 - idade 

140 PRINT "Voce esta ciente que somente daqui O"; velho; 

150 PRINT "□anos, serã septuagenário?" 

Na linha 130 tudo o que se faz e subtrair 
a sua idade de 70 e colocar a resposta ou o resulta 
do na caixa de memória numérica denominada "velho". 

Desta forma se a sua idade atual e 15 ter- 
se-á a variável "velho" com valor 55. 

Execute ( RUN ) agora o programa e tente 
compreender melhor como funciona o mesmo. 

Execute o mesmo varias vezes, usando dife¬ 
rentes idades. 

O que ocorre se a sua avo, que tem hoje 78 
anos, entrar com a idade dela? 
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Neste caso sairá uma mensagem com idade ne 
gativa e para que nao se interprete isto erradamen¬ 
te convêm modificar a linha 30 pelo menos para: 

130 LET velho - 80 - idade. 

Porém a aritmética até agora pedida ao 
TK 90X e muito simples e por isto vamos acrescen¬ 
tar mais algumas linhas ao programa. 

• 0 ano tem 365 dias e a cada quatro anos 

tem-se um ano bissexto ou seja o ano em que o mês 
de fevereiro tem 29 dias e portanto neste ano tem- 
se 366 dias. 

Assim em média um.ano tem 365,25 dias. 

Portanto se você multiplicar a sua idade 
por 365,25 voce obterá o número de dias que já vi¬ 
veu (aproximadamente). 

Acrescente portanto as seguintes linhas: 

160 PRINT 

170 LET dias = idade * 365.25 

180 PRINT "Voce já viveuQ"; dias; "f~~| dias ." 

O ponto decimal (a nossa clássica vírgula 
decimal)é o caractere em vermelho que está na tela 
"M". 

Como um dia tem 24 horas, você pode também 
querer saber quantas horas já viveu. 

Acrescente as seguintes linhas: 

190 PRINT 

200 LET horas = dias * 24 

210 PRINT "Se cada hora que passa na nossa vida 
ê importante saiba que:" 

220 PRINT "Voce já viveuD"; horas; "□horas." 

\ 

Dá para expressar o que você já viveu em 
minutos? E.em segundos? 



52 


Ê claro que sim desde que voce introduza 
que toda hora corresponde a 60 minutos e cada minu¬ 
to corresponde a 60 segundos. 

Complete então o programa com as seguintes 

linhas : 


230 PRINT 

240 LET minutos = 60 * horas 

250 PRINT "Em minutos parece que a sua vida e 
bem grande!I2" 

260 PRINT "Saiba que voce jã viveu fl 11 : minutos; 
"□minutos" 

270 PRINT 

280 LE.T segundos = 60 * minutos 

290 PRINT "Em segundos dã impressão que a sua 
vida ê infinita!I!" 

300 PRINT "Se voce tem mais que 3 anos de idade 
a que voce jã viveu em segundos serã apresen 
tado na notaçao exponencial" 

310 PRINT "A sua vida medida em segundos e:1 I"; 
segundos 


Agora execute (RUN) o programa, para ver 


que tipo de respostas obteml 

- Voce ainda lembra como transformar um numero 
na forma exponencial em um numero na forma normal? 



Dado que, para este quarto programa não de¬ 
vemos ter nenhum numero negativo basta voce deslo¬ 
car o ponto decimal para a direita tantas posições 
quanto ê o valor do numero logo apõs o-E. 


Dessa forma se o numero na forma exponen¬ 
cial for 


4.73364 E+8 segundos 


você precisa deslocar o ponto decimal 8 posições pa 
ra a direita acrescendo neste caso 3 "zeros" extra. 
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0 equivalente ao numero 4.73364 E+8 na for 
ma comum e 473 364 000 segundos ou seja 473 milhões 
e 364 mil segundos e que equivale a uma idade atual 
de 15 anos. 

Neste capitulo a instrução nova que você 
não pode esquqcer ê 


Diz ao TK 90X para listar (LIST) e 
exibir o seu programa começando com 
a primeira linha do programa. 


LIST numero —*- Por exemplo se no nosso ultimo 

programa escrevermos LIST 160 isto 
ordena ao TK 90X que 1 iste somente 
as linhas de programa começando no 
número teclado, neste caso 160. 






Capítulo 11 

Guardando e carregando 
os seus programas 


Agora que você jã teclou alguns programas 
(todos não muito longos...) seria uma boa ideia que 
o seu TK 90X "permitisse" guardar os mesmos em fi¬ 
tas cassete, desde que o(a) caro(a) leitor(lei tora) 
tenha um gravador adequado . 

Caso você nao tenha um gravador pode pular 
este capitulo ate que adquira um. 

Compre logo um, pois voce precisara dele. 

Muitos programas são tão longos que serã 
necessário batê-los em diversas etapas. 

Caso isto ocorra e fundamental poder guar¬ 
dá-los (SAVE) por exemplo em uma fita cassete e de¬ 
pois carrega-los (LOAD) para o TK 90X na próxima 
vez possibilitando a continuação da "teclagem" apar 
tir do ponto da ultima parada. 

0 TK 90X guarda programas transformando as 
informações que voce lhe manda para a sua memória 
em sons que podem ser gravados em fitas cassete co¬ 
muns através do mic rofone ( MIC ) do seu gravador. 

0 TK 90X pode então verificar .(VERIFY) se 
tudo foi gravado adequadamente antes que você desli 
gue o mesmo. 

Caso você queira usar o programa novamente 
ligue o TK 90X, volte a fita cassete e carregue 
(LOAD) o programa para a memória do TK 90X, porem 
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desta vez conecte o mesmo ao áudio (EAR socket) do 
seu gravador. 

Em resumo, você guarda (SAVE) o programa 
através do MIC e carrega (LOAD) o programa através 
do EAR (veja a Figura 1). 

É muito fácil fazer isto, so dependendo do 
ajuste do volume, que alias pode lhe trazer no iní¬ 
cio, um pouco de "dor de cabeça" até que voce se 
acostume com isto. 



Aqui pode surgir a pergunta: "Que tipo de 
gravador devo ter?". 

E aí vai a incrível resposta: "0 melhor 
gravador para o TK 90X é o gravador de preço médi¬ 
co, portátil e do tipo "mono". 


Os gravadores mais incrementados poderão 
servir mas nao sao tao eficientes. 

0 gravador que voce deve adquirir deve ter¬ 
no mínimo duas pequenas entradas, (3,5 mm) ou toma¬ 
das marcadas com MIC (ou AUX IN) e EAR (ou LS pois 
em inglês "loudspeaker" significa alto falante ou 
ainda AUX OUT) . 

Se voce estiver comprando um gravador para 
utilizar especialmente com o TK 90X leve em conta 
es timado(a) leitor(leitora) as seguintes observa¬ 
ções . 

1) Diga ao vendedor que voce quer um gravador para ser usado 
com o TK 90X. 

Pergunte-lhe se poderá trocá-lo ou devolvê-lo caso ele 
não funcione adequadamente com o TK 90X. 

Alguns gravadores podem não funcionar bem em conexão com 
o seu TK 90X, mas isto so dá para saber depois que você 
efetuar a compra... 

2) Ê interessante que o seu (futuro) gravador tenha um con¬ 
tador ou medidor de fita. 

Isto pode ser muito útil se você estiver tentando achar 
um particular programa entre vários que podem ter sido 
gravados na mesma fita. 

3) É mais economico ter um gravador que possa ser ligado na 
rede elétrica, porém se funcionar com bateria isto lhe 
permitira as vezes um rendimento melhor a um custo bem 
maior a não ser que você possa recarregar as baterias. 

4) Tenha certeza que existem as embocaduras EAR e MIC como 
foi explicado acima. 

5) Verifique se o gravador pode carregar (LOAD) tanto os pro 
gramas a venda no comércio como aqueles que você proprio. 
irá gravar e depois carregar. 
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Guardando programas na fita 


Em primeiro lugar tenha certeza que existe 
algum programa na memória do TK 90X apertando a te¬ 
cia | ENTER~| . 

Que memória que voce tem, hein!?!?! 

Caso não exista nenhum programa, tecle al¬ 
gum ou melhor copie o mais simples dos que jã apren 
deu ate agora. 

Antes que voce guarde (SAVE) o seu progra¬ 
ma e necessário que o mesmo tenha um nome curto. 

Suponha que você decidiu chamar o seu pro¬ 
grama de "teste". 

Em primeiro lugar efetue a conexão entre 
o MIC do gravador e o MIC do TK 90X. 

Em seguida aperte a tecla S que tem sobre 
si a palavra-chave SAVE e tecle o nome do seu pro¬ 
grama entre aspas ou seja 

SAVE "teste" ( |ENTER | ) 

Lembre que o gravador deve estar Ijgado no 
modo de gravação (PLAY/RECORD). Em alguns gravado¬ 
res basta apertar o RECORD e por isto veja também 
as instruções do seu aparelho. 

Depois de ter teclado ENTER aparecerao 
nas bordas da tela faixas horizontais e sons agu¬ 


dos. 

Ao primeiro sinal se produz a gravação do 
nome do programa, e faixas de cor vermelha e azul 
são vistas durante uns 5 segundos. 

Depois disto quando as faixas sao mais ju 
tas e em cores azul e amarela o proprio programa e 
ta sendo gravado. 

Espere atê que apareça a mensagem 


tw to 
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0 Executado 0 : 1 

Pare o gravador pois o programa está gra¬ 


vado! : 


Voce pode não ter se convencido disto en¬ 


tão tecle 


VERIFY "teste" 

VERIFY á uma palavra em vermelho abaixo da 


tecla 


Mantenha abaixada CAPS SHIFT enquanto Vo 
cê aperta SYMBOL SHIFT . 

0 cursor piscante K. muda para o faiscan- 
te E no modo estendido. 

Novamente pressione a tecla CAPS SHIFT e 
mantendo-a abaixada aperte a tecla R. 

Desta forma você obterá a palavra VERIFY . 

Tecle o nome do seu programa, entre aspas, 
da mesma maneira que voce fez anteriormente com o 


comando SAVE. 


Caso tenha esquecido o nome do seu progra¬ 


ma tecle.' 


Agora encaixe o fio na embocadura EAR no 
gravador e no TK 90X. 

Volte a fita ao ponto de partida e coloque 
o volume a tres quartos do máximo. 

Aperte a tecla PLAY do gravador e em segui 
da aperte a tecla ENTER do TK 9^X. 

Se realmente voce armazenou (SAVE) o seu 
programa com sucesso terá uma tela branca seguida 
de um bordo faiscante. 

Então aparecerão as mesmas faixas de cor 
vermelha e azul no bordo, que você viu quando esta¬ 
va armazenando o seu programa, seguidas de faixas 
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estreitas de cor azul e amarela. 

Depois das faixas de cor azul e amarela, 
o nome do programa será impresso no topo da tela 
com a palavra "Programa" em frente do mesmo ou se¬ 
ja 

Programa: teste 

Finalmente quando se chegar ao fim deve 
aparecer a mensagem 

0 Executado 0 : 1 

indicando que voce tem na fita uma boa copia do seu 
programa e com toda confiança pode desligar o TK 

Carregando programas 

se aborreça se levar algum tempo para 
surgir o primeiro SAVE com sucesso. 

Nem tudo e fácil na vida, no inicio... 

Mas o TK 90X pode fazer máis coisas com o 
gravador e entre elas esta: carregar programas . 

Para carregar (LOAD) um programa para a me 
raória do TK 90X ligue o gravador da mesma forma que 
voce fez ha pouco com o VERIFY ou melhor para que 
se possa ler o programa da fita siga os seguintes 
passos : 

1) Ajustar o volume do gravador entre 6 e 8 

2) Colocar no agudo máximo no caso de se ter um gravador mono 

3) Acionar o comando LOAD"" ou LOAD "teste" 

4) Pressionar a tecla PLAY do gravador 

5) Pressionar a tecla ENTER do TK 90X 

6) Esperar pela mensagem 

i0 Executado 0 : 1 



Nao esqueça que se nao souber o nome do 
pjrograma basta escrever LOAD"" Csem nenhum espaço 
em branco entre as aspas) porem neste caso o TK 90X 
carregara o primeiro programa que vier na fita. 

Ele também imprime o nome do programa na 
tela para que voce tenha um lembrete. 

As novas instruções que apareceram neste 
capítulo sao: 


SAVE "teste" 


Diz ao TK 90X para guardar o que tem na 
sua memória em uma fita cassete com a de¬ 
nominação "teste". 

0 nome do programa pode ter atê um máximo 
de dez caracteres. 


VERIFY "teste" 


LOAD "teste" 


Diz ao TK 90X para verificar se o progra¬ 
ma foi armazenado corretamente. 

Diz ao TK 90X para carregar para a sua 
memória da fita cassete um programa de no 
me "teste". 


LOAD"" 



Diz ao TK 90X para carregar o primeiro 
programa que encontrar na fita. 

Entre as aspas nao deve haver nada. 
Qualquer uma dessas instruções pode ser 
incluida em um trecho do seu programa. 
Assim geralmente no fira de um programa 
pode-se escrever 

888 SAVE "teste":VERIFY "teste" 
e com um GOTO 888 estaremos guardando e 
verificando o programa. 

Este procedimento e muito útil para pro 
gramas longos que introduzimos no TK 90X 
em etapas e queremos armazenar e verifi¬ 
car as cópias dos mesmos. 
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Convem neste ponto o(a) atento(a) leitor(lei 
tora) ler o Capítulo 23 do seu Manual de Ope 
raçao do TK 90X pois la encontrara informa¬ 
ções complementares sobre o uso correto de 


SAVE, VERIFY e LOAD. 




TK9QX,o micro 
cheio de programas. 


/WICRODIGIWL 


Capítulo 12 

Como ter uma possibilidade ligada 
a um acontecimento aleatório 


Logo, logo voce começara a aprender como 
se pode programair jogos porem antes ê importante 
que saiba como se pode escolher ou obter um número 
aleatório. 

Um numero aleatório ê o tipo do número que 
voce pode obter ao lançar um dado. 

Em um dado honesto, qualquer número entre 
1 e 6 tem a mesma possibilidade ou melhor, probabi¬ 
lidade de sair, cada vez que se lança o mesmo. 

Vejamos como o TK 90X pode imitar um da 


Caso você olhe para a tecla "T", verá a 
"sigla" RND impressa em azul acima da mesma. 

Você pode acionar esta instrução apertando 
as teclas CAPS SHIFT e SYMBOL SHIFT| junto, para 
obter o cursor nr piscando. 

Aí sim, deve-se apertar a tecla ”T" e ter- 
se-á a função que gera números aleatórios - função 
RND de Random (aleatório em inglês). 

Tecle pois o seguinte mini-programa (seu 
quinto programa). 
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PROGRAMA 5 J 

10 PRINT RND 
20 GOTO 10 

Quando voce executar (RÜN.) este programa, 
verã numeros que o TK 90X acredita sejam números 
aleatórios. 

Devido a instrução da linha 10 imprime-se 
um numero aleatõrio entre 0 e 1. 

Devido a instrução da linha 20 o programa 
volta para a linha 10 e imprime um outro numero e 
um outro numero e outro ate que a tela fique cheia 
com 22 numeros aleatórios ocupando cada um uma li- 


Aí surge a mensagem 

s croll ? 

_ 

no es P a Ç° de trabalho . 

Caso voce apertar qualquer tecla que não 
seja "N" (a qual significa "não" neste exemplo), 
SPACE ou STOP , a tela ira "rolar" como um anti¬ 
go pergaminho, e o TK 90X irá imprimir um novo con¬ 
junto de numeros aleatórios enchendo a tela e dei¬ 
xando voce perplexo(a) e admirado(a)II 

Por causa do efeito de 
20 GOTO 10 

envia-se o TK 90X a um laço (LOOP) sem fim como se 
fosse um cao tentaddo pegar o seu rabo, 

0 TK 90X dara voltas e voltas continuamen¬ 
te oferecendo-lhe em cada uma delas um numero inin 
teligível... 

A forma mais simples para parar a impres¬ 
são destes numeros e apertar a tecla SPACE ou en¬ 
tão a tecla "N". 
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Pessoas mais sofisticadas e que gostam de 
vida cheia de artifícios podem também usar a sequen 


cia I SYMBOL SHIFT e 


para parar o programa 


Isto produz a mensagem: 

D BREAK - CONT repete 10:1 

de forma que pressione a tecla CONT 

se voce precisar - porém voce terá também que aper 

tar ENTER] ! 

_-J ^ 

Depois que voce parar um programa como es¬ 
te, se pressionar ENTER a listagem do seu progra¬ 
ma será mostrada sem que haja a necessidade de te 
ciar LIST . 

Mas qual é a utilidade direta de frações 
decimais tão compridas, todas entre 0 e 1 como as 
que voce acabou de ver? 

Na realidade, não é muito grande, porém fa 
cilmente pode-se transformar estas frações decimais 
em numeros entre 1 e 6 para simular o que ocorre no 
lançamento de um dado. 

Inicialmente multipliquemos a função RND 

por seis (6). 

Tecle então uma linha nova I ou edite(EDIT) 
a antiga linha l(^j- 

10 PRINT RND * 6 


Quando você executar (RÜN) este programa 
revisto os numeros aparecerao no intervalo de 0 (o 
qual voce não quer) a 6 (o qual voce quer mas que 
jamais sera atingido e portanto exibido). 

Além disto os números tem ainda muitas ca¬ 
sas decimais. 

Voce pode se livrar desta indesejável par¬ 
te decimal usando a instrução ou seja a função INT, 
impressa em azul acima da tecla R.. 
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Note que você precisa do modo estendido(mo 
do E) ou ampliado para "chegar" ate o INT de forma 
que use as teclas CAPS SHIFT* e |1>YMB0L SHIFT iun 
to ou seja ao mesmo tempo» 

Modifique a linha 10 para 

10 PRINT INT (RND * 6) 
e nao esqueça dos parentes es!i!! 

Execute (RUN) outra vez o programa. 

Tem um aspecto bem melhor, não e? 

A função INT realmente nos livrou da inco¬ 
moda parte decimal dos numeros porem resta ainda um 
problema os numeros que estão inscritos nas faces 
de um dado sao 1,2,3,4,5 e 6 enquanto o que se exi¬ 
be na tela sao os numeros 0,1,2,3,4 e 5. 

Você e capaz de advinhar como iremos ensi¬ 
nar o TK 90X a transformar 0 em 1 e o 5 em 6? 

Ai vai a resposta: 

^10 PRINT INT (RND *6) +1 ^ 

Por enquanto nao e muito importante se vo¬ 
cê nao esta entendendo o que estou fazendo desde 
que compreenda que se vai obter os numeros ' que se 


Realmente INT(RND*6)+1 produz o seguinte 
efeito: 



elimina a parte fracionaria dos nu¬ 
meros positivos 

produz um numero aleatorio entre 0 
e 1 sendo que o extremo 1 não estã 
incluido. 

multiplica-se por 6 que e um numero, 
uma unidade a mais que o valor da 
diferença entre o maior e o menor 
numero que você quer (6-1=5) 
acrescenta-se o menor numero que vo 
cê quer. 


1 
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A palavra-chave em branco na tecla T e 

RAND. 

Quando você apertar esta tecla, a palavra 
RAND serã impressa na tela. 

Isto ê necessário para que o TK 90X leia 
numeros aleatórios de uma lista. 

. Quando o TK 90X e desligado, ao ser ligado 

novamente ele começa a ler esta lista sempre no mes 

mo lugar. 

RAND diz ao TK 90X para ler os nume¬ 
ros aleatórios a partir de uma posição aleatória 

nesta lista, de forma que voce "jamais 1 obterá a 
mesma serie de números aleatórios I ?!?[1 

Existe uma coisa muito importante que voce 
deve aprender neste ponto,antes ; por exemplo de par 
ticipar do seu primeiro jogo no TK 90X. 

Você ja conhece o sinal de .igual (=■) conr-, 
forme foi indicado na Tabela 2. 


0 TK 90X entende outros■símbolos similares 
e que serão muito uteis daqui para frente. 


Símbolo 

Significado 

Encontra-se 
na tecla 

= 

igual a 

L 

< 

menor do que 

R 

> 

maior do que 

T 

< = 

menor do que ou igual a 

Q 

> = 

maior do que ou igual a 

E 

< > 

diferente ou nao igual a 

w 


Tabela 4 - Operadores relacionais 
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Todos estes símbolos ou sinais estão dese¬ 
nhados com cor vermelha-nas teclas indicadas na Ta¬ 
bela 4. 

Caso nao tivéssemos estes símbolos como e 
que poderíamos descartar todas as candidatas a miss 
Universo se as condições elementares fossem medir 
mais do que 1,70 metros e pesar menos que 60 quilo¬ 
gramas ? 

Na realidade todos estes símbolos aparece¬ 
rão dentro das instruções IF-THEN como por exemplo: 

IF chute < número THEN faça algo 

onde se (IF) o seu "chute" for menor que um certo 

"número" então (THEN) deve ser feito algo. 

Uma outra'forma pode ser: 

IF chute < >número THEN faça algo 

que significa se (IF) o seu "chute" é diferente (ou 
não iguaDao "número", então (THEN) faça algo. 

Falaremos já, já mais um pouco sobre o 
IF...THEN e muito no Capítulo 13 porem por enquan¬ 
to comece a teclar o sexto programa. 


^PROGRAMA 6 J 

10 REM *** 0 JOGO DA ADVINHAÇÃO*** - 

20 RAND - RANDOMIzF 

30 PRINT "Aâvinhe o número entre 1 e 50 
que eu TK 90X escolhi" 

40 LET número = INT (50*RND)+1 

50 LET tentativa - 0 )com i 


% 

1 'var? 


60 INPÜT "Entre com o seu 
chutechute 

70 LET tentativa = tentativa+1 


0 programa começa 
com uma nova pala 
vra chave REM que 
voce achará na 
tecla "E" j 
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80 PRINT "Na tentativaO"; tentativa; "do seu 
chute foiQ"; chute 

90 IF chute < número THEN PRINT "Escolheu um nú¬ 
mero menor" 

100 IF chute > número THEN PRINT "Escolheu um nú 
mero maior" 

110 IF chute,< >número THEN GOTO 60 
120 PRINT "Parabéns, esta correto!!!" 

130 SOUND 3,7 
140 CLS 
150 GOTO 30 



Execute o programa e então veja se voce po 
de parar o mesmo!!! 

Você vai sentir qué o seu TK 90X as vezes 


se entusiasma tanto que e duro para parar. 

Não adianta apertar a tecla BREAK| . 

A saída ê pressionar a tecla SYMBOL SHIFT 
e a tecla "A" onde v.-estã o STOP 
Deu'para parar? 

Uoootimo!!! 


Explicações detalhadas sobre o sexto pro¬ 
grama. 

e uma palavra chave muito útil (esta na te 
cia "E") pois permite que se possa incluir co¬ 
mentários (remarks em inglês) ou observações 
nos programas, tais como o título que foi in¬ 
troduzido. 

0 TK 90X ignora tudo que estiver na linha logo 
apõs o REM ou seja o conteúdo daquilo que vem 
apos o REM em nada influencia a execução do 


Linha 10 —»-| REM 


Linha 20 


programa. 

| rand} diz ao TK 90X para escolher uma pos' 
ção inicial aleatória dentro da sua lista de nu 
meros aleatórios. 


V 1H 
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Linha 30 —Imprime uma mensagem no topo da tela sobre o jo¬ 
go- 

Linha 40 —► Diz ao TK 90X para escolher um numero aleatoria¬ 
mente entre 1 e 50. 

Linha 50 —— Aí se inicializa a variável "tentativa" com a 
qual se vai contar quantas vezes voce ira chu¬ 
tar ate acertar no numero que o TK 90X escolheu. 

Linha 60 —AÍ o TK 9 fix lhe pede para entrar com a sua advi- 
nhaçao que será armazenada na variável "chute". 

Linha 70 —► Conta-se o numero de tentativas acrescentando-se 
cada vez que se passa por aí uma unidade. 

Linha 80 —«-Imprime-se o numero da tentativa e o numero es¬ 
colhido por voce (jogador ou jogadora). 

Linha 90 —► Imprime-se a mensagem somente se o seu "chute" 
for menor do que o numero correto - voce es 
tã abaixo . 

Linha 100—►Imprime-se a mensagem somente se o seu "chute" 

for maior do que o número correto - voce esta 
acima. 

Linha 110 -►Diz ao TK 90X para ir de volta a linha 60 se o 
seu "chute" rão e igual ao número correto. 

Linha 120 -►Caso o programa atinja este ponto sem que algo 
tenha sido impresso devido as linhas 90 ou 100 e 
sem ter sido enviado de volta pelo desvio incon¬ 
dicional GOTO 60, então finalmente voce acertou. 
Como prémio deve ver a mensagem "Parabéns, esta 
correto 11!" 

Linha 130-►Faz com que o TK 90X emita um som para comemorar 
o seu feito e com isto provocar uma pequena pau¬ 
sa, para que se tenha tempo de ler a ultima men¬ 


sagem. 
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Falaremos adiante muito mais sobre o comando SOUND 
que e sempre seguido de dois numeros o primeiro 
indicando o comprimento de uma nota e o segundo 
(separado por vírgula do primeiro) a altura ou 
tom da mesma. 

Mas isto será nos programas musicais. 

Linha 140—►Cora o comando CLS (esta na tecla "V") manda-se 
limpar a tela e assim estar pronto para outro jo 
go. Em inglês "clear, screen" 

Linha 150-► Desvia incondicionalmente para a linha 30 para 
um novo jogo. 


PROGRAMA 7 J 

Neste prógrama o seu TK 90X lhe dara o nú¬ 
mero e o seu logaritmo natural para cada número que 
voce enviar ao TK 90X. 

Caso o número introduzido seja maior que 
10 21 ou seja 1E+21 manda-se parar o programa (li 
nha 80). 

AÍ esta o programa: 

10 PRINT "Entre com o número" 

20 INPUT x - 

30 IP x >1E+21 THEN GOTO 80 - •y' 31he a instrução'' 

40 PRINT "Numero", "Logaritmo / Q d;syio quand0 

5 0 PRINT x, LNx /LN 10 I o_número que vo- 

. \ c ê introduzir 

60 PRINT \ for muito grande, 

70 GOTO 10 ^ 

Explicações 


1) A função L N número calcula o logarit¬ 
mo natural ou seja na base e (e = 2,7182818) de um 
"número".positivo. 
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gativo. 


Ocorre erro caso o numero seja nulo ou ne- 

A função LN esta em azul acima da tecla Z 
Como queremos o logaritmo na base 10- (dez) 


itilizou-se a formula matematica 


log e x 

log 10 X = 1o g 10 
e 

2) A instrução STOP da linha 80 e para fi¬ 
nalizar a execução de um programa. 

^ 0.1.^Caso você não saiba o que ê um loga¬ 
ritmo consulte alguém que esteja cursando o 29 grau. 

Muitas foram as novas informações deste ca 
pitulo lembre então que; 



Diz ao TK 90X para desviar (para frente 
ou para trãs) para uma particular linha 
cujo numero é indicado após o GOTO. 
Assim a palavra chave GOTO (esta na te¬ 
cla "G") ê usada para modificar a ordem 
na qual as instruções do programa sao 
executadas fazendo com que o TK 90X "pu 
le" para uma outra linha. 

Para não esquecer o efeito do GOTO te¬ 
cle o seguinte mini -programa 
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10 PRINT "TK 90xDd"? 

15 POKE 23692,0 -Este comando esta na letra "O" 

20 GOTO 10 6 far * co ® que >.° que 36 exlbe 

. na tela } vâ subindo para sempre 

sèm. lhe pedir permissão e evi¬ 
tando á mensagem "scroll?". 

Caso você não tenha entendido 
esta linha não se preocupe por 
enquanto. 

Trate-a como se fosse uma in¬ 
falível formula magica.. 

Para parar este "L00P" sem fim a única for 
ma sem desligar o TK 90X da tomada ê apertando si¬ 
multaneamente as teclas CAPS SHIFT e BREAK . 

| RND~| -►Diz ao TK 90X para escolher um numero 

aleatório entre 0 e 1 de uma lista pré 
definida. 

0 RND esta acima da tecla "T". 

RAND(omize) —«^Diz ao TK 90X para escolher um n 
mero aleatório de um ponto aleat 
rio desta lista. 

0 RAND esta na tecla "T". 

INT --►A função INT diz ao TK 90X para cortar 

a parte de um numero após o ponto de¬ 
cimal . 

Esta função esta sobre a tecla "R". 

Sobre o IF-THEN, o CLS e o SOUND falaremos 
mui to. adiante. 


No momento veja se da para entender o pro¬ 
grama 4 do Capitulo 23. 


m to 
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Va lã (GOTO) mas volte pois não e ura des¬ 
vio sem volta... 



Capítulo 13 

Fazendo decisões com o auxílio 
do TK 90X 


Uma das grandes vantagens que possui o TK 
90X e a possibilidade de ser programado de tal for¬ 
ma que possa "tomar 'decisões”. 

Logo, logo você aprendera como se pode pro 
gramar o TK 90X para que o mesmo verifique se por 
exemplo a tecla que foi apertada ê para mover uma 
nave para cima, para baixo, para a esquerda ou para 
a direita ou ainda se deve ser disparado o míssil 
da mesma. 

Assim um trecho de um programa poderã ter 
o seguinte aspecto 


IF (se) a tecla "5” for pressionada THEN (então) mova a na¬ 
ve para esquerda 

IF (se) a tecla "8" for pressionada THEN (então) mova a na¬ 
ve para a direita 

IF (se) a tecla "6" for pressionada THEN (então) mova a na¬ 
ve para baixo 

IF (se) a tecla n 7" for pressionada THEN (então) mova a na¬ 
ve para cima 

IF(se) a tecla "D” for pressionada THEN (então) dispare o 
míssil 

IF (se)o míssil atingiu o objetivo THEN (então) simule 
uma explosão e acrescente 100 pontos â sua contagem. 


etc. 
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Em geral você programara o TK 90X para fa¬ 
zer decisões usando a instrução IF...THEN . 

Como jã comentei de "raspão" no Capítulo 


12,o efeito do 


IF. ..THEN 


ê dizer ao TK 90X que: 


IF(se) algo e verdadeiro (como "ê verdade que a tecla 
"5" foi pressionada) THEN (então) o TK 90X precisa fa¬ 
zer algo (como deslocar a nave para a esquerda). 


Ê claro que voce ainda nao estã apto para 
programar jogos espaciais e por isto o nosso oitavo 
programa usara muito a instrução 
mesmo tempo o colocara em contato com os recursos 
coloridos do seu TK 90X. 

Espero que você tenha uma T.V. colorida em 
casa pois caso contrario isto ê numa T.V. em preto 
e branco o mãximo que veras são os efeitos em dife¬ 
rentes tons de cinza. 

Tecle por enquanto o seguinte 


IF...THEN 


ad 


PROGRAMA 8 




10 CLS 

20 PRINT "Você gostaria de mudar:" 

30 PRINT "1 - a cor da borda (BORDER)" 

40 PRINT "2 - a cor do papel (PAPER)" 

5j2T PRINT "3 - a cor da tinta (INK) 11 

60 INPUT "Entre com 1,2 ou 3Q"; escolha 

70 IF esoolha = 1 THEN GOTO 200 

80 IF escolha = 2 THEN GOTO 300 

90 IF escolha = 3 THEN GOTO 400 

100 PRINT "Ouçahumanõide, o número precisa ser 
1,2 ou 3! Não brinque comigo!" 

110 PRINT "Não estou zangado, por favor tente de 
novo..." 


120 GOTO 20 

200 REM A sua escolha recaiu sobre o 1 (BORDER) 

210 CLS 

220 INPUT "Qual é a oor que você quer (0-7)?Q"; 
cor 

230 BORDER Cor 

240 PRINT "0 número da cor da borda (BORDER) é: 

Ú"; cor 

250 PRINT 
260 GOTO 20 

300 REM A sua escolha recaiu sobre o 2 (PAPER' 

310 CLS 

320 INPUT "Qual é a cor que você quer (0-7);D"; 
cor 

330 PAPER cor: CLS: PAPER cor 

340 PRINT "O número da cor do papel PAPER cor: D" 
cor 

350 PRINT 
360 GOTO 20 

400 REM A sua escolha recaiu sobre o 3 (INK) 

410 CLS 

420 INPUT " Qual é a cor que você quer (0-7)? 

O"; cor 
430 INK cor 

440 PRINT "0 número da cor da tinta (INK) 0:0"; 
cor 

450 PRINT 
460 GOTO 20 

Explicações detalhadas sobre o oitavo pro¬ 
grama . 

,Linha 10— - Com esta instrução limpa-se a tela toda para se 
receber o novo programa. 

Linha 20 a 60 *—^-Espero que esta parte esteja totalmente cia 
ra para voce, pelo que se explicou nos capítulos 
anteriores. 
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Caso isto nao seja verdade ("true") volte ime 
diatamente para o ponto em que tem duvidas... 


Linhas 70 a 90-»-Em primeiro lugar a palavra chave (branca) IF 
esta na tecla "U" de forma que sÕ aperte a 
mesma apõs ter teclado o numero de linha. 

Jã para obter o THEN você deve manter abaixa¬ 
da a tecla SYMBOL SHIFT enquanto aperta a 
tecla "G". 

Note que sem apertar a SYMBOL SHIFT apertan 
do a tecla "G" obtem-se o GOTO. 

Ao se usar o THEN o TK 90X automaticamente se 
prepara para reconhecer que a próxima tecla 
a ser pressionada corresponde a uma palavra- 
chave (comando) e nao uma simples letra. 

Caso a sua "escolha" for igual a "1" vai-se 
para 200, caso seja igual a "2" vai-se para 
300, caso for "3" vai-se para 400 e caso você 
entrar com um número diferente de 1,2 ou 3 o 
controle do programa e transferido para a li¬ 
nha de número 100. 


Linhas 100 a 120 —•-Bem aí aparecem as mensagens de que você 
entrou com número-codigo errado e pede-se que 
você entre com a "escolha" novamente fazendo 
voltar para a linha 20 devido ao GOTO da li¬ 
nha 120. 


Linhas 200,300 e 400 —*-Estas linhas nao são estritamente ne¬ 
cessárias porem ê útil incluir uma instrução 
REM no início de cada trecho distinto de um 
programa para destacar para você o que real¬ 
mente faz o seu TK 90X neste trecho. 

No trecho 200 a 260 escolhe-se a cor da borda, 
mostra-se isto e volta-se a 20. 
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No trecho 300 a 360 escolhe-se a cor do pa 
pel, mostra-se isto e volta-se a 20. 

No trecho 400 a 460 escolhe-se a cor da 
tinta, mostra-se isto e volta-se a 20 

Linhas 210, 310 e 410 —►Com o comando CLS limpa-se simples¬ 
mente tudo que ha na tela de forma que vo¬ 
cê possa a partir deste ponto começar com 
uma tela nova e limpa. 

Linhas 220, 320 e 420 —«-Utiliza-se o INPUT para parar o pro 
grama e desta forma você pode informar ao 
TK 90X o número da cor que voce deseja. 

Ele então armazena este número na caixa da 
memória identificada pelo nome de variãvel 
"cor". 

0 TK 90X tem oito cores numeradas de 0(pre 
to) atê o 7 (branco) de forma que "(0-7)?" 
e simplesmente o intervalo no qual estão 
todas as entradas legais . 

As outras cores estão indicadas no teclado 
acima dos numeros 1,2,3,4,5 e 6. 

Não esqueça que se você entrar com um núme 
ro que nao seja 0,1,2,3,4,5,6 ou 7 isto 
provoca uma entrada ilegal . 

Ao "rodar" o programa dê uma entrada ile¬ 
gal para ver o que acontece. 

Linha 230 -*- 0 que voce deve fazer aqui e apertar a pa¬ 

lavra-chave (branca) BORDER que esta na 
tecla "B". 

Por favor não tecle este comando como um 
conjunto de letras separadas B,0,R,D,E,R. 
Vai dar erro, viu?!!?! 

Alias o mesmo se aplica a REM, CLS, PRINT, 



etc. 
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O seu TK 90X ja lhe apresenta a vantagem da 
simplificação e por isto nao procure o cami 
nho da complicação... 

Com BORDER define-se a cor que se quer para 
a borda, margem, beira, orla, fronteira ou 
simplesmente da área que faz o contorno da 
area de impressão. 

Assim por exemplo com BORDER 6 se ordena ao 
TK 90X para fazer amarela esta região exter 
na da tela. 

Linhas 240, 340 e 440 —*-No caso da linha 240 imprime-se na 
têla a mensagem "o numero da cor da borda 
'(BORDER) e 

0 ponto e vírgula (;) e a palavra "cor" 
apos a mensagem, diz ao TK 90X: 
"imediatamente apos o espaço em branco de¬ 
pois do "é" você deve imprimir o numero que 
esta contido na caixa de- memória com o ro¬ 
tulo "cor" ". 

Ê análogo o que ocorre nas linhas 340 (se 
bem que aí e para o PAPER) e 440 (aí para o 
INK). 

Linhas 250, 350 e 450 —►O PRINT sem nada depois dele faz 

com que o TK 90X deixe uma linha em branco 
Como já disse anteriormente e apenas para 
fazer com que na tela da T.V. seja mais sim 
pies ler e identificar as respostas. 

Como você queira sentir a diferença, execu¬ 
te o programa removendo estas linhas do mes' 
mo e depois execute novamente com todas 
estas linhas presentes. 
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Linhas 260, 360 e 460 » -» Coin a instrução GOTO 20 informa-se 
ao TK 90X para voltar para a linha 20 do 
programa e começar tudo de novo. 

A economia que voce obtêm com isto e que 
desta maneira nao e necessário teclar toda 
vez o RUN para ver novamente uma- outra cor 


Linha 330 


Para se poder entrar com PAPER, cuja cor e 
vermelha voce deve estar no modo estendido 
(modo E) e para tanto mantenha abaixada a 
tecla CAPS SHXFT enquanto aperta a te¬ 
cla [SYMBOL SHIFTf . 

0 cursor que está piscando, deve mudar de 
K para [ E| . 

Com a tecla | CAPS SHIFT abaixada outra 
vez voce deve apertar a tecla "C" e aí sur 
girá escrito PAPER. 

Se voce esquecer de apertar novamente a te 
cia CAPS SHIFT e apertar somente a tecla 
"C" aparecerá o que esta escrito em azul 
acima da tecla "C" ou seja LPRINT. 

Caso isto ocorra, use o DELETE e então vol 
te novamente ao modo estendido e tente de 


novo. 

Até agora nao demos grandes detalhes sobre 
a tela do seu aparelho de T.V. quando o 
mesmo esta ligado ao TK 90X. 

A tela da sua T.V. fica como se fosse um 
quadro negro no qual o TK 90X tem escrito 
as respostas as perguntas que tem sido fei 
tas a ele. 
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Bem, como o TK 90X nao tem olhos como voce 
ele precisa de pontos de referencia aos quais vai 
dirigir-se para poder imprimir bem na posição qüe 
lhe for indicada. 

Cora este fim o TK 90X considera a tela di¬ 
vidida em 24 linhas e 32 colunas, numeradas de 0 em 
diante a partir do canto superior da esquerda con¬ 
forme esta indicado na Figura 2. 


0 1 2 3 4 5 6 T 9 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 2729 29 30 31 



As linhas 22 e 23 estio reservadas para 
que o TK 90X possa comunicar-se contigo humanoiãe 
ou seja nao estão disponíveis para voce no que se 
refere a apresentar resultados e linhas de programa 
- este e o espaço de trabalho» 


Portanto o TK 90X considera a tela do seu 
aparelho de T.V. dividida em um retângulo de 24 li 
nhas e 32 colunas ficando desta forma claramente de 
finidas duas zonas na tela; a primeira que corres¬ 
ponde a zona onde se produzirão as impressões cor¬ 
respondentes ãsj mensagens e informação em geral pro 
veniente do TK 90X e a segunda que e todo o resto 
da tela que rodeia este retângulo. 

É esta ultima zina que se pinta com o co¬ 
mando BORDER. 

A palavra PAPER significa papel em inglês 
e e esta a instrução que determina, junto com o nu¬ 
mero que a segue, a cor que deve ter o retângulo on 
de são feitas as impressoes. 

Por exemplo com PAPER 2 se colorira de ver 
melho este retângulo. 

Quando voce executar (RUN.) o programa pode 
rã notar que certas combinações de cores não funcio 
narao muito bem... 

Por exemplo, se você tentar imprimir 
(PRINT) letras em preto em um fundo preto, ê evi¬ 
dente que não conseguira ler nada. 
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(n.I. f .Não esqueça, que se voce estiver em d ificul- 
JhMMk. dades pode sempre apertar a tecla SYMBOL 

SHXFT enquanto aperta também a tecla "A" pa 
ra parar (STOP) o "problema". 

Então tente teclar PAPER 7 (usando a te- 

CQ w 

cia "C" no modo E) para que se tenha um fundo bran- 


Finalmente apertando o ENTER e então 
LIST voce devera voltar a normalidade... 

Linha 430 —Com esta instrução "ensina-se" ao TK 90X para 
mudar a cor da tinta (em inglês a palavra INK 
significa tinta) para o valor que esta armazena 
do na caixa de memória com o rotulo "cor". 

É com esta função (use CAPS SHIFT , SYMBOL 
SHIFT apertadas simultaneamente para entrar no 
modo E e depois CAPS SHIFT e a tecla "X" para 
poder escrever a instrução INK) que se faz com 
que os caracteres que aparecem na zona de im¬ 
pressão tenham a cor que voce queira, 
fi evidente que não se deve ter PAPER (papel) e 
INK (tinta) com os numeros iguais apõs os mes¬ 
mos. 

Deve-se destacar que quando o seu TK 90X i liga 
do BORDER e PAPER estão automaticamente na cor 
branca (numero 7) e INK é preto (número 0). 

(oT. ^ Caso voce queira que toda a tela mude de, cor, 
^—-s. deve refazer a tela com uma instrução CLS an 
^5 tes da próxima instrução PRINT e desta forma 
acrescente as seguintes linhas. 

^ QyCaso você nao queira isto, PAPER e INK i.n- 
fluenciarão apenas na instrução PRINT atual. 
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Bem, as novas e importantes instruções que 


você nao deve esquecer mais sao as seguintes: 


IF...THEN 


CLS 


BORDER 


■Diz ao TK 90X para efetuar um teste que per 
mita saber se uma condição e verdadeira e 
o que deve ser feito nesta situação. 

Diz ao TK 90X para limpar a tela para o con 
junto de cores. 

0 comando CLS estã na tecla "V". 

Diz ao TK 90X para "ajustar" a cor da borda 
ou seja da margem. 

Note que o BORDER estã na tecla "B". 

Diz ao TK 90X para ajustar a cor do fundo 
ou seja a cor do "papel" que e o retângulo 
central da tela. 

Para se obter o PAPER apõs a sequência 
| CAP S SHIFT! , ISYMBOL SHIFTl , |CAPS SHIFT] 

—li i . 

: modo E 

deve-se apertar a tecla "C". 

Diz ao TK 9pX para ajustar a cor do primei¬ 
ro plano ou seja a cor da "tinta". 

Para se obter o INK apõs a sequência 


jCAPS SHIFTl |SYMBOL SHIFT| 

...I- y, ...I 

qiróq X 

deve-se apertar a tecla "X". 


CAPS SHIFT 







86 Capítulo 14 

Utilizando subrotinas para inclusive 
obter economia de digitação 



0 oitavo programa ainda esta na memória do 

TK 90X? 

Espero ao menos que voce tenha tido a boa 
ideia de te-lo guardado numa fita. 

Carregue-o e de um LIST. 

0 que, nem esta na memória e nem salvou o 

mesmo ? 

Péssimo! ! I 

AÍ não tem jeito vai ter que bater uma boa 
parte del.e novamente. 

Antes entretanto note que muitas linhas 

eram praticamente idênticas no oitavo programa ou 
seja 

210 CLS 

220 INPUT "Qual e a cor que voce quer (0-7)?[3"; 
cor 

e o mesmo acontece com (menos os numeros de linha) 
310. CLS 

320 INPUT "Qual é a cor que voce quer (0 — 7) ?[Z3"; 
cor 

e aindfa 
*10 CLS 

420 INPUT "Qual ê a cor que voce quer (0-7)? O" ; 


cor 
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0 TK 90X tem uma forma bem simples de im¬ 
primir estas duas linhas mais do que uma vez. 

E aí, que pode ser usada uma subrotina. 

Resp.r Uma subrotina ê nada mais, nada menos que um pequeno 
programa dentro do proprio programa. 


As linhas de 200 a 260 formam uma subroti¬ 
na, o mesmo se pode dizer das linhas de 300 a 360 e 
também das linhas 400 ate 460. 

Apos se desviar para uma ou outra dessas 
subrotinas (o que alias foi decidido pela instru¬ 
ção IF...THEN), a mesma era executada segurído ins- 


truço 

es como: 


200 

REM A sua escolha 

210 

CLS 


220 

INPUT "Qual e a 

c 


cor 


230 

BORDER cor 


240 

PRINT "0 numero 

d 


□ cor 


250 

PRINT 


260 

GOTO 20 



Usando o comando GOSUB 



A instrução GOTO e muito boa quando usamos 
uma subrotina apenas uma vez. 

Porem, se voce estiver usando as mesmas li 
nhas de programa varias vezes no programa como fize 
mos com as linhas 210 e 220 ou 310 e 320 ou ainda 
410 e 420 o uso de uma subrotina que é chamada pelo 
comando GOSUB é preferível... 

Se associamos a idéia de que um programa 
é uma rotina, será imediato concluir que uma subro¬ 


tina ê um programa que esta dentro de uma rotina ge 
ral ou seja o prSprio programa . 

Em inglês, na suposição que estavas queren 
do mandar alguém (de preferencia o TK 90X) a uma 
subrotina dirias, "goto sub routíne” (va para a sub¬ 
rotina) e para voltar da mesma falarias "return" 
(volte). 

Ê foi pensando nisto que se criaram no 
BASIC as instruções GOSUB, para sair do programa 
principal, efetuar algum processo de trabalho na 
subrotina e RETURN, para voltar ao programa geral 
exatamente na linha que vem imediatamente apos a li 
nha do GOSUB. 

Pode-se dizer que as "rotinas" GOSUB são 
quase idênticas ãs "rotinas" GOTO. 

A grande e fundamental diferença é que o 
TK 90X lembra onde ele estava no programa principal 
e volta para a posição seguinte a esta quando no 
final da subrotina encontrar a instrução RETURN. 

Para mostrar-lhe como- isto funciona vamos 
criar uma nova (e primeira) subrotina para fazer o 
trabalho de limpar a tela (CLS) e perguntar-lhe 
qual é a cor que voce deseja. 

Ê na tecla "Y" que voce encontra a pala¬ 
vra-chave (branca) RETURN. 

Acrescente ao oitavo programa as seguintes 

linhas 

500 REM Subrotina para a limpeza da tela e 
escolha da cor 

510 CLS 

52J3 INPUT "Qual ê a cor que você quer (0-7) ?l I”; 
cor 

530 RETURN 
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Isto e tudo que você terã na subrotina. 
Agora, para que tudo funcione direitinho 
elimine as linhas 

210 ( IeNTErI ) 

310 ( jENTERl ) 

410 ( lENTERl ) 

que nao são mais necessárias e modifique as linhas 
220 , 320 e 420 introduzindo aí a palav-r a-chave (br an 
ca) GOSUB que está na tecla "H" da seguinte forma: 

220 GOSUB 500 
320 GOSUB 500 
420 GOSUB 500 


Como' um toque final, para evitar que voce 
cometa alguma confusão para reconhecer este progra¬ 
ma, que sem dúvida era bom ter gravado numa fita,co¬ 
loque nele o título 

f 5 REM *** CORES E SUBROTINA *** ^ 


Isto auxiliara voce a lembrar que esta ê 
uma versão otimizada do oitavo programa, no qual 
se tinha o contato com as cores do seu TK 90X. 


Ah! Ah ! Ah 

Ia esquecendo isto!!' 

Execute (RUN) o programa "CORES E SUBROTI- 
NA" a&ora com a sua primeira subrotina. 


As novas instruções deste capítulo foram: 
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GOSUB -*- Diz ao TK 90X para lembrar a sua 

posição e ir (GO) ate a subrotina 
(SUB). 

Esta palavra-chave em cor branca 
esta na tecla ”H". 



Diz ao TK 90X 
imediatamente 


para voltar a posição 
seguinte aquela que 


ele lembra quando saiu devido ac 


comando GOSUB. 


A palavra-chave RETURN, que tem cor 
branca,esta na tecla "Y". 






Capítulo 15 

Movendo coisas na tela 


Voce já esta acostumado a ver o seu TK 9ÓX 
a imprimir coisas nos mais diferentes pontos da te¬ 
la. 

Porem se voce quiser por exemplo elaborar 
programas para jogos eletrónicos precisara saber co 
mo controlar onde as coisas aparecem na tela e prin 
cipalmente saber movimentã-1 as. 

Inicialmente você deve aprender como o TK9(&X 
pode ser ensinado a imprimir em qualquer posição da 
tela. 

,Jã lhe foi dito que a tela onde são feitas 
as impressões é constituída de 22 linhas numeradas 
de 0 (zero) no topo ate a linha em baixo elogo aci¬ 
ma do espaço para o trabalho cujo numero ê 21 (veja 
a Figura 2). 

Cada uma destas linhas pode conter 32 ca¬ 
racteres ao longo da tela. 

0 espaço individual no qual cada letra, nu 
mero ou símbolo pode ser impresso pode ser chamado 
de "retângulo". 

Como as colunas sao numeradas de 0 a es¬ 
querda, ate 31 â direita da tela pode-se de forma 
única definir cada um dos 32x22 = 704 retângulos 
onde se quer começar a imprimir. 
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Desta forma caso você queira que saia uma 
letra bem em cima e bem a esquerda da tela a sua po 


siçao seria: 


linha 0, coluna 0 


a qual o TK 90X entende como posição 0,0. 

Se voce quer imprimir um caractere no' topo 
e nio canto da direita da tela a sua. posição seria: 

linha 0, coluna 31 
ou 0,31 de uma forma mais compacta. 

0 retângulo mais baixo e no canto da es¬ 
querda (imediatamente acima do espaço de trabalho) 
seria indicado por 

linha 21, coluna 0 ou 21,0 de uma forma 
mais compacta. 

Como ê que se especifica o canto baixo e 
da direita? 

Resp.: 21,31. 

Tecle agora a seguinte instrução 

PRINT AT 4,10; "SOU 0 SEU TK 90X" 

Voce precisa usar a instrução (vermelha) 
AT, a qual estã impressa sobre a tecla "I" e preci¬ 
sa também incluir a vírgula e o ponto e vírgula. 

0 comando que você deu hã pouco ao TK 90X 
significa imprima (PRINT) a mensagem "SOU 0 SEU TK 
90X" na linha numero 4 e começando a impressão a 
partir da coluna numero 10. (veja a Figura 3). 


a 
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Figura 3 


Vamos no nono programa fazer com que um 
nome se mova ao longo de uma linha e para tanto pre 
cisamos ensinar o TK 90X a imprimi-lo a partir de 
diferentes posiçoes. 

Tecle o programa e a seguir execute o mes- 


Veja se compreende como o mesmo funciona e 
se identifica algumas incoerências... 



10 REM *** MOVENDO UM NOME *** 

20 LET linha = 11 
30 LET coluna - 0 

40 INPUT "Qual e o seu primeiro nome?O"; n$ 
50 PRINT AT linha, coluna; n$ 

60 LET coluna = coluna + 1 
70 GOTO 50 


Você não acha que estã tudo acontecendo um 
pouco depressa? 

Concordas! I! 
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Que tal provocar um pequeno atraso? 

Como é uma boa idéia vamos introduzir uma 
pausa musical com o auxilio do SOUND que esta impres 
so em vermelho na tecla "Z". 

Introduza pois a seguinte linha: 

65 SOUND 1,10 

e execute (RUN) o programa novamente. 

Com a introdução desta linha emite-se 
(SOUND) o tom de numero 10 durante 1 segundo após • 
cada impressão do seu nome. 

Altere a linha 65 para 

Ç 65 SOUND.3, coluna 



(oTTr) Mantenha abaixada a tecla 


SYMBOL S.HIFT 



quanto voce aperta a tecla "M" para se obter 
o ponto decimal que deve aparecer antes do 
"3". 

Execute (RUN) o programa noyamente. 


'—r$> 


Hummmmram... 

Interessante, mas nao é exatamente o que 
s e pretendi a. 

Tem-se uma "trilha" de letras iniciais que 
e um estorvo e além do mais surge a estranha mensa¬ 
gem de erro 


B inteiro excede limite 50:1 


Antes de iniciar a eliminação desta "man¬ 
cada" seria interessante que voce realmente compre¬ 
endesse como funciona o nono programa. 

A trilha de letras (sem nenhum intervalo) 
é provocada pelo fato de que ninguém ensinou e tao 
pouco pediu ao TK 90X para apagar o nome antigo an¬ 
tes de imprimir o mesmo em uma outra posição. 


Desta forma execute (RUN) o programa mais 
uma vez porem quando o TK 90X. lhe perguntar: 

"Qual é‘o seu primeiro nome? □ " 

pressione inicialmente a tecla SPACE (espaço em bran 
co) uma vez, antes que voce entre com o seu nome 
digamos: 

"D Sérgio" 

Execute (RUN) agora e não va dizer que o 
seu TK 90X é um mãgico. 

0 que ele é realmente e artificioso... 
Como provavelmente voce poderá esquecer 
deste espaço em branço (mãgico) eu lhe indicarei no 
próximo programa exemplo, o de n? 10, uma forma do 
TK 90X lhe colocar este espaço.• 

Desta forma guarde (SAVE) este programa em 
uma fita cassete ou então deixe na memória do TK 90X 
pois no Capítulo 15 iremos utilizar o mesmo. 

proarama 

Linha 10-♦Isto jã é muito simples. REM lhe permite escrever 
algo que voce acha que e explicativo ou indicati¬ 
vo para o programa como por exemplo o título do 
mesmo. 

Qualquer coisa que for teclada apos a palavra-cha 
ve REM é ignorada pelo TK 90X. 

Linha 20-*-6 aí que se informou ao TK 90X em que linha * da 
tela deve ser feita a impressão. 

Escolhemos a linha de numero 11 que na realidade 
e a 12? linha (veja a Figura 2). 

0 numero que colocamos na caixa de memória com ,o 
título "linha" e um numero legal para a linha 
pois estã no intervalo de 0 ate 21. 
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Tente por conta própria mudar esta instrução 
dando a variável "linha" valores próximos de 0 
(zero) ou de 21 para começar a ter um bom domínio 
da tela... 

Linha 30 Com o auxílio da instrução LET "ajusta-se" a posi 
ção inicial da variável "coluna" no ponto 0 (ze¬ 
ro) . 

Foi escolhido este valor, para que o seu nome se 
movimente da esquerda para a direita ocupando to¬ 
da a tela. 

Linha 40-*-Uso.u-se XNPUT para parar o programa enquanto voce 
tecla o seu nome. 

0 TK 90X guarda o seu nome na caixa de memória 
rotulada com n$. 

Desta forma, toda vez que vopê quiser que seja im 
presso o seu nome basta ordenar ao TK 90X para 
executar o comando PRINT n$. 

Linha 50-*-Aí se indica ao TK 90X onde exatamente voce quer 
a impressão do seu nome, que no caso particular 
terá a sua primeira impressão começando no "retan 
guio" definido pelo cruzamento da linha de nume¬ 
ro 11 com a coluna de numero 0 (zero). 

Desta forma PRINT AT linha, coluna terá inicial¬ 
mente o significado PRINT AT 11,0. 

Em outras palavras: "imprima (PRINT) na (AT) li¬ 
nha 11 a partir da .coluna 0". 

Como o valor da variável "coluna" ira aumentar 
de uma unidade em cada volta teremos comandos do 
tipo PRINT AT 11,1, PRINT AT 11,2, PRINT AT 11,3 
etc. o que significa imprima na linha 11 a par¬ 
tir da coluna 1, imprima na linha 11 a partir da 
coluna 2, etc. e o seu nome começa a se deslocar. 
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Linha 60—instrução LET coluna = coluna + 1 nao tem muito 
sentido em Álgebra, pois ê capaz de voce chegar 
a conclusão que 1=0?!?! 

Na realidade não e nada disto. 

0 TK 90X entende esta instrução como: "em cada 
volta acrescente ao conteúdo da caixa de memória 
com o rótulo "coluna" uma unidade ou ainda o novo 
valor de "coluna" e o antigo mais uma unidade". 

0 TK 90X irá assim em cada volta efetuando as se¬ 
guintes somas: coluna e igual a nada (zero) mais 
1 (um) na 1? volta, um mais um na 2? volta, dois 
mais um na 3? volta, etc. ate que o programa pa¬ 
re. • 

Voce não esqueceu que o maior valor da variável co 
luna e igual a 31, nao e? 

Aliás,, se o nome-teste for "DSérgio" introduza 
as seguintes instruções 

55 IF Coluna <25 THEN GOTO 60 

56 PRINT AT linha, 25; '' 

57 LET coluna = 0 

58 GOTO 50 

que o seu programa nao parará jamais a nao ser 
que voce queira isto!?!?!? 

Linha 65—Esta linha foi acrescentada para diminuir um pou 
co a velocidade com que e impresso o nome. 
Enquanto o TK 90X está emitindo um som ele nao 
pode mais fazer nada ao mesmo tempo. 

Desta forma tudo"para durante uma fração de segun 
do ou alguns segundos enquanto o TK 90X soa um 

"barulhinho". 

Se o TK 90X está emitindo um som (SOUND) curto, 
obviamente que o atraso provocado no programa e 
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bem pequeno. 

Entretanto se voce mandar fazer um 1 SOOOOM bem 
longo o atraso na execução do programa ê bem sen¬ 
sível . 

Os numeros apos a instrução SOUND significam 
SOUND duração, altura 

onde "duração" significa quantos segundos voce 
quer que dure a nota, e "altura" significa o quão 
alto ou baixa e a nota que voce quer ouvir. 

Caso voce queira uma nota bem curta, pode teclar 

SOUND.3, coluna 

que significa: "emita durante 0,3 segundos uma 
nota com um valor que voce irã encontrar na caixa 
de memória com o rotulo "coluna". 

Como o valor da variãvel "coluna" e aumentado de 
1 unidade em cada volta que o TK 90X atinge a li¬ 
nha 60, o tom da nota aumenta de uma unidade cada 
vez que for emitida. 

So para sentir melhor e como uma experiencia ins 
trutiva modifique a linha 65 de tal forma que pos 
sa ter outros valores para o SOUND. 

A duraçao pode variar de 0 ate 10. 

A altura (tom) pode ser qualquer número de -60 
ate +69. 

Frações destes números também sao aceitas pelo 
TK 90X. 
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Se voce entende um pouco de música, caso o valor 
que voce atribuir a altura for zero terã o "do" 
do meio. 

Portanto qualquer valor negativo (como - 8) sera 
uma úota mais baixa do que o "middle C" em um pia 
no. 

Ê claro também que se voce escrever algo como 
SOUND 0,15 nao terã muita utilidade pois a nota 
que dura 0 (zero) segundos i um pouco difícil de 
ouvir, nao e? 

Linha 70—0 GOTO envia o TK 90X de volta a linha de número 
50 na qual ordena-se para imprimir o seu nome ou¬ 
tra vez, porem agora como o valor da "coluna" foi 
aumentado de 1 (linha 60) a impressão do nome sai 
um espaço a direita em relação a última posição. 
Nao esqueça então que a grande enfase neste capí¬ 
tulo foi para as instruções: 

PRINT AT *-DÍ 2 ao TK 90X para imprimir na li¬ 

nha e coluna especificados apos o 
AT (o AT esta em vermelho na tecla 
"I"). 

SQUNP -•- ao TK 90X para soar o alto fa¬ 

lante em uma duração e altura >(ou 
frequência) especificadas. 

0 SOUND esta abaixo da tecla Z (em 
vermelho). 
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Capítulo 16 

Conectando e cortando STRINGs 



0 TK 9$X pode juntar ou melhor concatenar 
duas ou mais cadeias de caracteres para desta forma 
criar frases. 

Desta forma o TK 90X pode "somar" uma STRING 
contendo as letras "Ale" com uma outra STRING conr 
tendo "xandre" para formar o nome "Alexandre". 

Pode-se inclusive ter uma STRING que den¬ 
tro nao tenham nem letras ou qualquer outro tipo de 
caractere, ou seja ter entre aspas um (ou mais) es- 
paço(s) em branco. 

Alias isto e muito util para que se tenha 
uma certa facilidade nâ leitura. 

^PROGRAMA 10 

10 LET A$ - "Alexandre" 

20 LET E$ = "Do grego : Alexandros" 

30 LET S$ = "Significado:" 

40 LET D$ = "defensor da espécie" : LET B$ = "ÇH": 
LET T$ = "-" 

50 PRINT "Aí vai uma explicação de um nome impor¬ 
tante, aliás o nome jã foi a alma das pessoas!" 
60 PRINT : PRINT 
10 PRINT A$ + T$ + B$ + B$ + E$ 

80 PRINT S$ + B$ + D$ 


) 
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Execute e veja se sai isto: 

Ai vai uma explicação de um nome 
importante, alias o nome jã foi 
a alma das pessoas. 

Alexandre - Do grego: Alexandros 
Significado: defensor da especie 


1) Nas linhas 40 e 60 aparecem dois pontos (":")que 
permitem que se obtenha o que se pode chamar de 
linha de instruções múltiplas ou seja em uma úni 
ca linha lógica de programa termos varias instru 


2) Nas linhas 70 e 80 foi feita a concatenaçao das 
STRINGs.A$, T$, B$ (espaço em branco) E$ (linha 
70) e S$, B$ e D$ (linha 80). 



ff possível extrair uma subSTRING ou modi¬ 
ficar uma STRING usando uma nova operaçao que pode¬ 
mos chamar de corte (em inglês "slicing") da STRING 
original. 
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Em outras palavras e possível determinar 
uma subSTRING a partir de uma STRING maior, apli¬ 
cando a função TO (e por favor não confunda este TO 
com outras aplicações da função TO em outros coman 
dos...). 

- A forma geral para o corte de uma STRING 
e 



Assim se você escrever por exemplo 

PRINT "123456789" (.4 TO 7) ( lENTER]) 

Sairã a subSTRING "4567 ou seja começando 


no quarta caractere e terminando no 7. 

Por outro lado se voce escrever: 

"Victor" (1 TO 3) ( lENTERj ) 

serã exibida a subSTRING "Vic" que representa os 
tres primeiros caracteres da STRING "Victor". 

0 início e o fim de uma STRING são frequen 
temente utilizadas para formar subSTRINGs pelo cor¬ 
te e caso voce não tenha especificado o início [ex 
pressão aritmética (1)] ou o fim [• xpressão aritmé¬ 
tica (2)J o seu TK 90X pode assumir algumas coisas 
como esta indicado abaixo: 

"12345678" (TO 5) significa "12345678" (1 TO 5) e que dã 
"12345" 

"12345678" (3 TO) significa "12345678" (3 TO 8) e que dã 
"345678" 

"12345678" (TO) significa "12345678" (1 TO 8) e que dã 
"12345678" 
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"12345673" (7) significa "12345678" (7 TO 7) e que da "7" 

Se voce caro(a) leitor(leitora) não perce¬ 
beu ainda a "função corte" da STRING em toda a sua 
amplitude em primeiro lugar "bom dial" ou seja acor 
de. . . 

Acordou? 

Aí vão mais algunas ilustrações: 


10 LET F$ = "Não se deve inventar" 
20 PRINT F$ (5 TO) 


| Resultado| 

- Exibe-se a sub STRING 
"se deve inventar" 


10 LET F$ - "Nao.se deve inventar" 
20 PRINT F$ (6 TO 14) 


Exibe-se a subSTRING 
"e deve in" 


10 LET F$ = "Nao se deve inventar" _ ., 

—Exibe-se a subSTRING 

20 PRINT F$ (7 TO) "deve inventar" 

Esta clareando, não e estimado(a) leitor 
(leitora)? 

Tudo se tornara obvio (acho eu...) após o 
seguinte programa-exemplo . 


PROGRAMA 11 J 

Vamos usar a função para se imprimir 

o nome de um mes dado o seu numero (isto e para se¬ 
tembro (Set) voce deve entrar com o numero 9). 

0 resultado exibido sera do tipo 

^ mes 9 e Set” 

Você irã ouvir um \ rãpido efeito sonoro pa 
ra cada saída apresentada na tela. 


AÍ vai o programinha: 
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10 LET n$ = "JanFevMarAbrMaiJunJulAgoSetOutNovDez" 
20 INPUT "Entre com o número do mêsQ" ? mês 
30 PRINT "mês D"; mês; "QêD"; n$ (1+3* (mês-1) TO 
3*mês) 

40 FOR j = 69 TO - 60 STEP -1 
50 SOUND .1, j 
60 NEXT J 
70 GOTO 20 

Al gumas explicações sobre o programa 11 

1) A amplitude numérica para a variável mês é de 1 
atê 12 (números inteiros) para se obter a abre¬ 
viatura correta para o mês em questão. 

A forma como opera a linha 30 ê a seguinte: 
se você entrar com mês de número 5 (maio) então 
1 + 3*(mês-1) = 1 + 3*(5-1) = 13 e 3*mes=15 resul¬ 
tando daí um corte na STRING entre as posições 
13 e 15 ou seja ê exatamente onde está a abrevia 
tura "Mai" isto ê a subSTRING exibida. 

2) É no Capítulo 17 que voce aprenderá como funcio¬ 
nam as linhas 40 e 60 (FOR-NEXT). 

Por enquanto nao esqueça como funciona o SOUND 
caso tenha esquecido volte ao Capítulo 15. 






Capítulo 17 

Preparando-se agora para (FOR) 
o seu próximo (NEXT) grande truque 
no TK 90X 


Em computação (como alias em tudo...)exis¬ 
te sempre uma forma melhor de se conseguir fazer uma 
coisa. 

Neste capitulo voce ira conhecer uma"hera" 
(do latim hera que significa "senhora") instrução 
que irã capacitá-lo(1 a) a mover coisas para baixo e 
para cima ou para esquerda e para direita na tela, 
deslocar as suas naves e as suas armas para qual¬ 
quer ponto da tela, etc.. 

Estou me referindo a instrução 

^ FOR-TO/NEXT J 

que talvez sèja uma das mais poderosas do BASIC. 

A instrução FOR/NEXT e constituída de dois 
comandos: o comando FOR e o comando NEXT. 

A instrução FOR-TO/NEXT ê aparentemente 
complicada porem'e de grande importância para algu¬ 
mas aplicações e de saída voce ira teclar e execu¬ 
tar o programa 12. 



20 PRINT "Eu não queria ter xarãJ" 
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30 LET n = n+1 

40 IF n = 14 THEN GOTO 60 

50 GOTO 20 

60 REM *** o programa vai descançar um pouco** 

Ate aqui voce já conhece tudo e ao execu¬ 
tar o programa 12 como está escrito voc? vera na te 
la repetido treze vezes a mensagem 

^Eu nao queria ter xará!" ^ 

Vamos executar agora o mesmo programa usan 
do F0R-T0/NEXT. 

0 seu aspecto será agora: 

10 FOR n = 1 TO 13 

20 PRINT "Eu nao queria ter xerá!" 

30 NEXT n 

40 REM *** 0 programa vai descansar um pouco" 

Acho que voce já notou deste pequeno exem¬ 
plo que o F0R-T0/NEXT lhe economizou, para começar, 
duas linhas completas do programa. 

Porem ele faz muito mais do que isto. 

Entenda agora como funciona o programa. 


1) Na linha 10 o TK 90X atribui â variável n inici¬ 
almente o valor 1 e passa para a próxima linha. 

2) Na linha 20 o programa encontra a instrução PRINT 
e imprime a mensagem "Eu não queria ter xira!". e 
passa para a linha seguinte. 

3) Na linha 30 encontra-se o comando NEXT ("next" 
significa proximo em inglês) que faz com que o 
novo valor de n seja n+1 comparando o mesmo com 
o valor final que no nosso caso particular é 13. 
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Enquanto este valor de n for menor ou igual que 
13 o programa volta automaticamente para a linha 
10 . 

Na 1? volta ao se chegar ã linha 30 o valor de n 
ele sai daí com o valor n=2 que e menor que 13. 
Com isto repete-se o ciclo e a mensagem "Eu não 
queria ter xará!" ê impressa pela 2? vez. 

4) 0 ciclo se repete ate que o valor (final) de n 
se torne 13 quando então ao chegar na linha 30 
ele se torna 14 e ao voltar para a linha 10 ele 
|£jj^e maior do que o limite superior especificado fa 
>zendo com que ò TK 90X abandone o "L00P” (laço 
- ou malha) prosseguindo o programa na primeira ins 


truçao após o NEXT. 


1) As vezes, interessa que a cadencia com que uma va 
riave1 dentro da instrução FOR vã tomando valo¬ 
res que vao aumentando com incremento diferente 
da unidade. 

Pará esta finalidade existe ã sua disposição a 
instrução STEP que permite que a variável seja 
incrementada (aumentada) ou decrementada (dimi 
nuída) a sua vontade. 

Assim se voce escrever: 

ÍfOR x = 20 TO 40 STEP 5 


[NEXT x 

o seu TK 90X entenderá que o programa terá neste 
trecho cinco repetições, em cada uma delas a va 
riãvel x toma os valores 20,25,30,35 e 40 res¬ 
pectivamente e tudo isto devido a instrução STEP 
que depois de si tem o incremento 5. 
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Pode-se também diminuir o valor de uma variãvel 
era cada volta e para tanto basta que o numero 
após o STEP seja negativo. 

Assim se voce escrever: 

1 F0R x = 100 TO 50 STEP -10 

NEXT x 

o seu TK 90X entendera que o programa terá neste 
trecho seis repetições, em cada uma delas a va¬ 
riável x tomará os valores 100,90,80,70,60,50 
respectivamente e como se pode perceber em cada 
volta a variãvel tem'o seu valor diminuido (de- 
crementado) de 10 até atingir o valor limite 50. 

2) Dentro de uma malha FOR-TO/NEXT pode-se embutir 
ou aninhar um ou mais "loops" FOR-TO/NEXT com a 
condição fundamental que os mesmos não se cruzem 
(vej a a Figura 4). 



Figura 4 - Sao dadas todas as voltas em _Q3 para se dar uma vol 
ta seguinte em tu e depois que se dao todas as voltas com¬ 
pletas em tu se dá uma nova volta em s. 

E assim seguirá ate que tudo seja completado... 
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3) Bem, agora dá para entender as linhas 40, 50 e 60 
do programa 11-. 

A variãvel j tem valor inicial 69 e vai diminuin 
do em cada volta este valor de 1 até atingir o 
valor -60. 

Cora isto cada vez que se passa pela linha 50 ge¬ 
ra-se som através do alto falante do seu televi¬ 


sor e isto devido a instrução 50 SOUND .l,j onde 
0.1 dá a duração da emissão do som (em segundos) 
e j é a frequência da nota. 



Neste programa no qual se usam dois^oops" 
um aninhado dentro do outro vão ser calculados os 
70 primeiros números primos de 2 em diante. 

Como a lógica do mesmo é um pouco complexa 
desenhamos ao lado dos números de.linha os possí¬ 


veis desvios do fluxo do programa. 

Acho que com isto, como a explicação dada 
há pouco e a que surgirá apos o 139 programa você 
atencioso(a) leitor(a) deglutira mais um... 



10 LET p — 1 /Com esta 

20 POR v=l TO 10 J a ~ Se a J 

V de ura mm 

30 LET p = p+2 s' X _ 

40 FOR f=3 TO SQR p STEP 2 

50 IP p=f *INT (p/f) THEN GOTO 30 

60 NEXT f 


Com esta função calcu> 
la-se a raiz quadrada 
de ura número / 


10 PRINT TAB 8*v; p; 
80 NEXT.v 
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Explicação complementar 

0 "loop" principal do programa e o que vai 
das linhas 20 ate 80 e conta apenas o numero de pri 
mos que devem ser encontrados sendo controlado pela 
variável contadora "v". 

Dentro do "loop" interno, a variável "p" é 
o numero que está sendo tèstado para verificar se e 
primo (voce sabe o que significa um numero primo?). 

Começou-se com um valor ímpar (3) e incre¬ 
mentou-se o mesmo em cada volta de dois (2) para 
evitar no programa o teste de numeros pares que ob¬ 
viamente não são primos. 

Para testar e saber se £ é primo necessi¬ 
tou-se do "loop" de 40 a 60 no qual se verifica se 
qualquer número inteiro no intervalo entre 3 e a 
raiz quadrada de p é um fator de ]3. 

Se isto ocorrer, p -nao e primo e o progra¬ 
ma salta (na realidade volta) para a linha 30 para 
se ter o próximo valor-de p_ que deve ser testado, o 
qual vem aumentado de 2 em relaçao ao ultimo. 

Note que o BASIC do TK 90X permite que se 
possa sair de uma malha FOR-TO/NEXT sem ter termi¬ 
nado o mesmo. 

Isto e as vezes bem difícil, para nao di¬ 
zer impossível em algumas versões de 1 BASIC usadas 
por certas máquinas... 

Caso não sejam encontrados fatores então p 
e primo e o seu valor e impresso na linha 70. 

Vale a pena neste momento falar um pouco 
sobre a instrução TAB . 

Ela permite ao seu TK 90X iniciar a impres 
sao era qualquer posição de uma dada linha. 


Em geral 


TAB n 


desloca a posição de im¬ 
pressão para a frente ao longo da linha e a partir 
da coluna n. 

As colunas (como você sabe) sao numeradas 
de 0 ate 31 e isto da esquerda para a direita. 

Caso a posição de impressão passe a coluna 
de número 31, por exemplo tendo-se um TAB 43) isto 
significa que n passa da 1? linha para a segunda e 
contam-se as restantes posiçoes para começar a im¬ 
pres ao . 

Neste caso particular, para TAB 43 se come 
çaria a impressão na 2? linha a partir da coluna 11. 

Para sentir melhor o que ocorre tecle e 
execute o seguinte mini-programinha. 


G 


PROGRAMA 14 


9 


10 

PRINT 

TAB 

0; 

"ALE"; 

20 PRINT 

TAB 

32 

"ALE”; 

30 

PRINT 

TAB 

43 

"ALE"; 

40 

PRINT 

TAB 

75 

"ALE"; 

50 

PRINT 

TAB192 

; "ALE"; 


Conelusão 

No caso de que se tenha um valor maior que 
o permitido os dados se deslocam para a linha se¬ 
guinte sendo o referencial a última linha ocupada. 

Ao executar você deve ter a saída indicada 
na Figura 5. 
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Confusão 

Portanto o FOR-TO/NEXT diz ao TK 90X para 
executar o "loop" (laço) entre o FOR e o NEXT usan¬ 
do valores especificados. 

o NEXT 
e o TO 

está também na tecla F e em vermelho. 

Va agora ao Capitulo 23 e tecle os progra 
mas. 5 e 6 para dominar mais ainda o FOR-TO/NEXT. 

Convem fazer isto antes de passar ao Capí¬ 


esta na 


Note que o FOR está na tecla F , 
[ tecla N , o STEP está na jtecla D 



tulo 18. 


Capítulo 18 

Movendo-se na tela com o auxílio 
do FOR-TO/NEXT 


Agora que voce já sabe como se trabalha com 
os "loops" FOR-TO/NEX-T vamos tentar com o auxilio 
dos mesmos mover o seu nome na tela para logo de¬ 
pois chegar ao seu primeiro joguinho real. 

Nao i o que voce está esperando? 

Wonderfuuuuul! ! I 

Para inicio de conversa não esqueça que um 
ciclo ("loop") sem corpo e um ciclo de atraso. 

Mas ele pode, mesmo assim ser util tornan¬ 
do a execução de um programa mais lento. 

É o caso de: 

10 

100 PRINT "Início" 

110 FOR Z=1 TO 999 
120 NEXT Z 

200 PRINT "Fim" 

onde com as linhas 110 ate 120 provoca-se uma pausa . 

No programa 9, quando se mostrou entre ou¬ 
tras coisas como se podia deslocar o seu nome no 
TK r 0X teve que se acrescentar um espaço em branco 
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antes do nome. 

Foi um truque "original", sem duvida ne¬ 
nhuma . . . 

0 movimento foi da esquerda para a direita 
e agora se quiser ir no outro sentido um espaço em 
branco devera ser acrescentado apos o nome, caso 
contrario voce tera uma linha de letras indesejá¬ 
veis. 

Vamos repetir o pvograma 9 usando agora o 
FOR-TO/NEXT. 

Tecle então: 

10 REM * Fazendo o seu nome andar da direita para 
a esquerda* 

20 INPUT "Qual é c seu primeiro nome?"; n$ 

30 LET n$ - n$ + "□" 

Neste ponto voce pode usar o laço FOR-TO/ 
NEXT para contar do fim para o começo: 

40 FOR c » 22 TO 0 STEP -1 

Voce lembra que para contar do fim para o 
começo e preciso colocar inicialmente o número maior 
(22 neste caso) e depois o número menor (neste caso 
o 0) apos a instrução TO. 

Depois disto voce precisa ainda dizer ao 
TK 90X em quantos passos ou etapas deseja que seja 
feita a passagem do número maior para o menor. 

Como agora ê do fim (do maior) para o come 
ço (para o mepor) o passo terã um valor negativo e 
o escolhido foi -1. 

Pode também informar ao TK 90X onde vore 
quer imprimir o seu nome. 


Digamos na linha de número 7 ou seja na oi 
tava linha e a partir da coluna c (o valor inicial 
de c é 22 e supoe-se que o seu primeiro nome não 
tem mais que 10 caracteres). 

Acrescente a instrução 

50 PRXNT AT 7,c; n$ 

Nao e nada ruim ter um pouco de som para 
tornar o programa um pouco mais vagaroso e ê por 
isto que se tem a linha 60. 

60 SOUND .5,c : SOUND .125, c : 

SOUND .016,c 

Voce esta apto a fechar o cic lo ("1oop")com 

a linha: 

70 NEXT c 

Voce tem alguma ideia porque usou-se a va¬ 
riável de controle "c" do "loop" tanto-na linha 50 
como na linha 60? 

Resp.: Em primeiro lugar se nos tivéssemos 
o número de linha e o mesmo fosse importante se¬ 
ria us ado. . . 

0 que temos e precisamos, e variar a colu¬ 
na (c) e por isto aproveitamos esta variável como 
controladora para o "loop", para a coluna no PRINT 
AT. e ainda para a frequência dentro do SOUND apli 
cando a lei do mínimo esforço e máxima utilidade... 

Resta agora fazer o nome voltar da esquer¬ 
da para a direita e ficar assim num "zig-zag" eter¬ 
no . . . 

Para tanto acrescente as seguintes linhas 
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80 LET n$ = + n$ 

90 FOR c - 0 TO 22 
100 PRINT AT 7,c; n$ 


105 SOUND .5, c : SOUND .125, c:SOUND .016,c 

110 NEXT c /r. -—- x 

z' Ura ciclo sem cornos 

120 FOR Z = 1 TO 999 : NEXT Z—ou seja uma peque- 

130 CLS ___\ja pausa ^ 

i rnTn -jrt ___ —(Sé você quiser começar com outro 

140 GOTO 30 ( ome faça aqui goto - 2 0 


140 GOTO 30 


Caso queira interromper este programa não 
use SYMBOL SHIFT e A pois nao irã funcionar es¬ 
te "breque". 

^ - r^—— 

Aqui voce deve usar CAPS SHIFT e SPACE 
parà interromper o "loop". 


Vamos ver agora como se pode mexer para ci 
raa e para baixo. 

Antes de mais nada lembre que voce e um(a) 
"personagem" que nao vive só o presente e pensa mui 
to no futuro pois desta forma, sem duvida, serã re¬ 
compensado ( a ) por sua diversidade e principalmente 
pela originalidade em algumas atitudes. 

Deixando a filosofia de lado, se você qui¬ 
ser mover uma palavra ou uma mensagem para cima ou 
para baixo na tela da T.V. precisa imprimir uma li¬ 
nha de espaços em branco em cima da palavra ou da 
mensagem "antiga" para apagã-la antes que a mesma 
seja impressa em uma nova posição. 

No seu TK 90X o conjunto de muitos espaços 
em branco ou seja um grande vazio vale muito e é 
bem diferente do nada ou seja onde nao há vazio ne 
nhum. . . 

Nomes as vezes podem ser muito estranhos e 
o deputado federal Áureo de Melo ê o autor do proje 
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to de lei (1965) que quer proibir o registro de no¬ 
mes ridículos, humilhantes, espalhafatosos, eróti¬ 
cos ou proibidos. 

Segundo o projeto, quem tentar registrar 
um(a) filho(a) com os nomes proibidos terá que pa¬ 
gar multa e nao serã apenas o pai mascítambêm o es¬ 
crivão que fizer o registro e o juiz que aprovar o 
dito nome. 

Entre alguns dos nomes estranhos, que ser¬ 
virão de amostra para o programa 15, analise estes: 

Amim Araon Amado 
Nascente Nascido Furo 

Lança Perfume Rodometalico de Andrade 
Um Doi.s Três' de Oliveira Quatro 
José Casou de Calças Curtas 
Rolando Emídio da Torre da Igreja etc. 


PROGRAMA 15 


10 rem*** fazendo o nome. subir*** _ 

20 INPUT "Entre com o nomeC]" ;n$ "Tror exemplo 
30 FOR L=21 TO 0 STEP -1 (^Amitn Amon Amado 

40 PRINT AT L , 7 ; n$ 

50 SOUND .2,1:' SOUND .1,L 

60 print AT l, 7; "ODOünOÜÜÜOnDÜÜD " 

70 NEXT L 

30 FOR Z=1 TO 199 : NEXT Z 
85 REM***fazendo o nome descer*** 

90 FOR L=1 TO 21 
100 PRINT AT L, 7; n$ 

110 SOUND .2 ,L: SOUND .1,L : SOUND.125,L 
115 PRINT. AT L, 7 ; "□□□□□□□□□□□□□□□ " 

120 NEXT L 

130 FOR Z”1 TO 199 : NEXT Z 
140 GOTO 20 
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Execute e compreenda o movimento na verti 
cal para estar preparado para o seu primeiro jogo 
(alias o que tem de jogo no livro dos meus filhos 
Sérgio e Victor nao ê brincadeira xará...). 

0- cuidado que voce deve tomar neste progra 
ma ao entrar com o nome (n$) e ver se ele nao tem 
mais do que 15 caracteres quando então deve-se au¬ 
mentar os espaços em branco da linha 60. 



ra de você começar a se capacitar totalmente para 
poder escrever os seus proprios programas de jogos. 

Mais algumas instruções e voce estara "ma- 
duro"(a) para este fim... 



10 REM* * * ARMA* ** 

20 INPUT "Entre com uma palavra comprida";p$ 

30 PRINT AT 0,12; p$ -- ~ 

40 LET arma =16 í Guaratingueta 

50 PRINT AT 21, arma; 

60 PAUSE 0 
10 LET m$ = INKEY$ 
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80 IP m? = "5" THEN LET arma=arma -1 : GOTO 50 
90 IF m$ = "8" THEN LET árma=arma +1 : GOTO 50 
100 IF m$ < >”0" THEN GOTO 50 
110 FOR L = 20 to 0 STEP -2 
120 PRINT AT L, arma+1; "1" 

130 SOUND .05,L 

140 PRINT AT L, arma +1; "p" 

150 NEXT L 
160:.GOTO 60 


Antes de executar este programa veja se vo 
ci bateu dois pontos e nao ponto e vírgula”;"no 

final das linhas 80 e 90. 

Como já comentei anteriormente o uso de 
dois pontos lhe permite incluir mais do que uma 

instrução na mesma linha. 

Você ganha um abraço (ou um beijo, isto 

depende do sexo.,.) se responder porque houve neces 
sidade de colocar mais que uma instrução nestas duas 
linhas! 

Apareceram duas instruções novas no progra 

ma 16. 

. ^ — „ ■ 

A primeira e- PAU SE que e uma palavra-cha 

ve que esta na tecla M. 

A forma geral desta instrução e PAUSE t 
onde t ê tempo em de segundo que voce quer que 
o TK 90X espere. 

Então como o proprio nome diz a instrução 
PAUSE gera uma parada ou pausa determinada pelo va¬ 
lor do argumento. 

PAUSE 0 equivale a um tempo indefinido de 
espera e só pode ser interrompido pelo acionamento 
de alguma tecla (com exceção da SHIFT). 
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A instrução INKEY$ ou como alguns costumam 
chamar a. variável INKEY$ ou ainda a função INKEY$ 
faz com que seja executada a leitura do teclado ob¬ 
tendo uma STRING com um único caractere como resul¬ 
tado. 

Se o teclado não foi acionado ter-se-a co¬ 
mo resultado uma STRING . totalmente vazia ou seja 
sem nenhum espaço em branco. 

A função INKEY$ opera de forma um pouco se 
melhante a instrução INPUT com uma diferença funda¬ 
mental que ela entra-em açao assim que a primeira 
tecla for pressionada>e nao necessita que se aperte 
ENTER para que isto ocorra. 

Qualqu-er infprmaçao indo para o TK 90X u- 
sahdo-se INKEY$ é tratada como uma' STRING, indepen¬ 
dente do fato da tecla pressionada ser de uma letra 
ou de ura número. 

Desta forma, e preciso que ela seja armaze 
nada na caixa de memória do tipo STRING, representa 
da com apenas uma letra seguida do sinal $. 

Execute agora o programa e distraia-se com 


o mesmo. 


— I—I 

Use a tecla 5 para mover a sua arma } t} 

para a esquerda e .a tecla f 8'] para mover a arma pa- 

r: i ^ . 

ra a direita e a tecla { 0 \ para disparar.o míssil. 


Se voce olhar para a linha .80 vai perceber 
logo que toda vez que a tecla }5| e apertada, o nu¬ 
mero na caixa.de memória com o rótulo "arma" tera 


subtraido de si a quantidade 1. 

Como o seu valor inicial e 16 cada vez que 
se aperta a teclajTj ter-se-ã: 
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e assim na primeira vez, "arma" tera valor 15 e se 
voce continuar apertando a tecla a variavel "ar 
ma" poderá tomar os valores 14,13,12,11 , . ..0 . 

Caso voce continuar apertando o valor atri 
buído serã -1, -2, -3, etc. e que estão todos fora 
da tela !I ?!! 

Nao faça isto pois entre outras coisas nao 
ha em que atirar... 

0 mesmo pode ocorrer se voce apertar muito 
a tecla 8 só que nesse caso a variável "arma" a 
cada pressionada da tecla_8_ e aumentada de uma u- 
nidade porém você nao deve .ter para "arma" valor 
maior que 31 pois neste caso estará fora da tela, a 
direita da mesma. 

Para evitar que isto aconteça, você deve 
•fazer um teste para ver se a sua arma nao está no 
fim da linha. 

Em outras palavras, voce só quer mover a 
arma se (IF) a tecla 8 for pressionada e (AND) a ar 
ma nao esta no fim (extrema direita). 

Dessa forma usando o símbolo vermelho AND 
na tecla Y mude a linha 80 para 

80 IF m$ = "5" AND arma > 0 THEN LET arma=arma -1 
: GOTO 50 

Com esta instrução a arma move-se somente 
se ambos m$ = "5" e (AND) a posição da arma é maior 
do que 0. 

0 mesmo deve ser feito para a linha 90. 

Neste instante você terá que escolher um 
número para o seu limite com muito cuidado, pois vo 
cê precisa levar em conta o comprimento da "coisa" 
que esta imprimindo. 
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Uma forma de estar seguro e não ultrapas¬ 
sar a coluna 31 e como a arma foi construída com 
tres caracteres I ,—] 


□ f □ 


espaço 
em branco 


espaço em branco 


o limite mãximo passa a ser a coluna 29 que nao de¬ 
ve portanto ser ultrapassada. 

A linha 90 deve ser: 


■90 IF m$ - "8" AND arma < '29 THEN LET arma=arma+l 
GOTO 50 

Agora você pode executar (RUN) o programa 
e treinar a sua pontar-ia. 

É claro que o programa esta muito estático. 

Cabe a você inteligente leitor(a) juntar o 
que foi ensinado no programa 9 ou seja como fazer o 
nome se mover da esquerda para direita e vice-versa 
que aí então o dinamismo farã com que voce erre al¬ 
guns tiros e o jogo se tornara mais interessante... 

Voce pode também no lugar de ama palavra 
construir uma STRING com caracteres 1 = 

dando assim um aspecto de uma nave espacial. 

Isto também melhorara as coisas. 

Mãos a obra o(a) original ê voc- M 


NOVAS INSTRUÇÕES (Resumo) 



Diz ao TK 90X para esperar durante 
um tempo fixo ou ate que uma tecla 
seja pressionr.da (aquela que lhe pa- 
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recer mais simpatica, menos a SHIFT..,) 
0 numero que segue PAUSE específica 
quantos do segundo deve-se espe¬ 
rar. PAUSE está na j t ec1 a MI . 


INKEY $ 


Diz ao TK 90X para tomar a próxima 
tecla pressionada como uma entrada 
STRING e nao esnerar pelo ENTER. Es¬ 
ta acima da [teci a n! . 


Ê usada junto com o IF-THEN para fa¬ 
zer com que o TK 90X só faça alguma 
coisa somente se ambas as instruções 
forem verdadeiras. Está na tecla Y 
AN D e um operador lógico. 
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Capítulo 19 

Usando caracteres gráficos que 
permitam simular uma explosão 


Vamos transformar aquela palavra (ou pala¬ 
vrão) que voce mandou no programa 16 em uma "carica 
tura” parecida com um aviao. 

Para isto precisaremos do modo grafico. 

Note que acima da tecla 9 esta a palavra 
GRAPHICS impressa em branco. 

Mantenha abaixada a tecla CAPS SHIFT en¬ 
quanto aperta a tecla 9 . 

•'Voce notou que o cursor mudou para um pis- 

cante G ? 

__ ■ 

Notou, me s m o ’.!!?! ! 

É isto que lhe indicara no TK 9$X que você 
esta no modo grafico. 

Em cada tecla de 1 ate 8 existe um pequeno 
símbilo branco como o que esta indicado na Figura 6. 


I3HEEBQI 

Figura 6 
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Aperte a tecla 1 e observe o pequeno qua 
dr ado que aparece. 

Agora aperte CAPS SHIFT e [ 1j juntas . 

Desta vez, o pequeno quadrado nao e impres 
so, porem o resto do caractere e. 

Caso o TK 90X tenha um cursor piscante | G | , 
então ao se apertar uma tecla numérica ter-se-a, na 
cor do INK, o quadrado grafico mostrado na cor escu 
ra naquela tecla. 

Porem se você mantiver CAPS SHIFT abaixa 
da, enquanto aperta uma tecla numérica, o TK 90X im 
prirairã na cor da instrução INK, a t uilo que esta im 
presso em branco naquela tecla. 

Brinque um pouco com as teclas no modo grá 
fico (GRAPHICS) ate que voce esteja ^eguro(a) de 
que jã compreendeu o que esta acontecendo. 


Enquanto estiver no modo | G| , ■> 0 ainda a- 
paga (DELETE) e a tecla 9 faz voltar ao cursor nor¬ 
mal ou seja desativar o modo grafico. 


PROGRAMA 17 


Realmente agora as coisas vao ficar um pou 
co mais emocionantes pois voce verá um aviao se mo¬ 
vimentando na horizontal e poderá tentar destrui- 
lo simulando inclusive uma explosão. 

Neste programa a função INKEY$ terá um de¬ 
sempenho muito importante e a parte mais difícil da 
lógica esta indicada no fluxograma da Figura 7. 
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Figura 7 - As linhas ‘60 a 100 

fazem o avião andar... 


Aí vai o p rograma: 


10 REM ** Explodindo um avião ** 

20 LET a$ 

30 LET avião = 0 carac teres sao 

{ obtidos com 

40 LET arma =16 \ 

\ SPACE + CAPS SHIFT 1 —► 

■50 PRINT AT 21,arma; 

■60 PRINT AT 2, aviao; a$ / CAP S SHIFT 3 

65 LET m$ = INKEY$ >--__- 

70 SOUND .1, -20 
80 LET avião = avião +1 

90 IF avião >26 THEN PRINT AT 2,27; "□□□□" 

LET avião = 0 

-100 IF m$ = ""THEN GOTO 60 

110 IF m$ = "5" THEN LET arma=arma -1 : GOTO 
120 IF m$ = "8" THEN LET arma=arma +1 ; GOTO 
-130 IF m$ < >"0" THEN GOTO 50 


GOTO 50 
GOTO 50 
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140 FOR L = 20 TO 0 STEP -2 
150 PRINT AT 2, avião; a$ 

155 IV SCREEN$ ( L, arma +1)< >"[]" TBEN GOTO 220 
160 PRINT AT L, arma +1; "I" 

170 SOÜND . 05 , L : SOÜND .05,-10 

130 LET avião = avião +1 

190 IF avião > 26 THEN PRINT AT 2,27; 

LET avião = 0 

200 PRINT AT L, arma +1; "□" 

210 NEXT L 
215 GOTO 270 


220' REM**aqui indica-se a explosão** 

230 PRINT AT 2, avião; FLASH1; -nua»" 


240 FOR Z=1 TO 20 

250 SOÜND .01, RND*(-20) 

260 NEXT Z 

270 CLS 

280 GOTO 20 

Agora, execute o p 



tar no aviao. 


Expliea çÕes adicionais 

1) Você jã notou, que no lugar da PAUSE 
que tinha na linha 60 no programa 16 foi colocada 
uma instrução PRINT AT, nao ê? 

0 fato e que uma pausa (PAUSE) é muito boa 
quando não ha nada acontecendo enquanto o TK 90X 
estã esperando por voce. 

Porem se voce quiser que o aviao se mova, 
deve ser um método um pouco diferente. 

Uma forma de obter isto ê colocando a fun¬ 
ção INKEY$ em um laço. 
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Este."loop" sera capaz de fazer duas ou três 
coisas em um espaço de tempo muito curto e pode tara 
bem agir como uma parada ate que uma tecla seja pres 
sionada. 

A maneira mais simples de entender O' que 
INKEY$ provoca ê voltando a Figura 5 e acompanhando 
o programa.- 

■Ê na linha 60 que começa este "loop"("Im- 
primir o aviao"). 

Neste laço utiliza-se INKEY$ para testar 
se uma tecla foi pressionada. 

Caso nao tenha sido pressionada nenhuma te 
cia ouvç-se o ruído do aviao e o mesmo vai se des¬ 
locando . 

Mas como é que o TK 9^X sabe se você aper¬ 
tou alguma coisa? 

Resp.: INKEY$ dã uma STRING vazia se ne¬ 
nhuma tecla foi pressionada. 


Uma STRING "nada" e formada apenas de dois 
conjuntos de aspas, um imediatamente apos o outro 
SSM NENHUM ESPAÇO EM BRANCO NO MEIO ou seja: 

ED 


São as linhas 80 e 90 que fazem o avião se 


deslocar. 


2) Quando você executar (RUN) o programa 
você verã o aviao se deslocando da esquerda para a 
direita (no céu...) até que você aperte a tecla 0. 

Ao se pressionar esta tecla (0) saltar-se- 
ã fora do laço que vai das linhas 50 até 130 e en¬ 
tra-se no "loop" do FOR-TO/NEXT que faz com que se 
desloque o. míssil. 
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Entretanto, nao é interessante que o aviao 
fique"paraiisado" enquanto o seu projétil se deslo¬ 
ca para destruí-lo. 

Ê por isto que existem as linhas 180 e 190 
que fazem com que o avião se movimente, fugindo ou 
pelo menos não esperando a destruição estático. 

3) Vamos agora a explosão... 

Tudo que voce deve fazer para isto e per¬ 
guntar ao TK 90X para que o mesmo verifique se onde 
ele imprime a posição do projétil hã algo diferente 
de espaço em branco. 

Caso haja, só pode ser uma parte do aviao 
e nestas condiçoes deve-se desviar o programa para 
aquelas linhas que provocam a explosão (220 a 260). 

A instrução que permite verificar se voce 
acertou no aviao e SCREEN $ , a qual esta numa pa¬ 
lavra verme lha abaixo da tecla K . 

A instrução SCRÉEN $ utiliza os mesmos nume 
ros de linha e coluna que sao usados na instrução 
PRINT AT, porem eles devem aparecer entre parênte¬ 
ses. 

A instrução SCREEN$ diz ao TK 90X que tipo 
de caractere ele identifica em alguma posição da 
tela ou seja na posição da linha e coluna indica¬ 
das entre parênteses. 

Caso nao haja nada, ela diz ao TK 90X que 
aí estã um espaço em branco, que alias ê o que exis 
te na maior parte da tela... 

Se por outro lado algo for detectado, sem 
duvida é o aviao. 

Esta ê a razao da existência da instrução 
de número de linha 155 que nos permite desviar o 
programa para a linha 220 onde estã a rotina para a 
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explosão (linhas 220 atê 260). 

Para se obter os símbolos gráficos voce de 
ve entrar no modo gráfico e aí então apertar as se¬ 
guintes teclas. 


fBBEq [ 



Figura 8 


Acho que voce quererá jogar mais que uma 
vez e e por isto que limpei a tela (linha 270)e man 
dei começar tudo de novo. 

Caso você queira um panorama mais colorido 
acrescente ao seu programa a linha,15. 



Uma versão bem mais sofisticada deste pro¬ 
grama aparece no livro dos meus filhos Sérgio e Vic 
tor "Jogos e Desenhos no TK 90X" - vol. 1. 

4) 0 FLA.SH que aparece na linha 230 ê um ar 

tifício utilizado para realçar um caractere, um con 

junto de caracteres ou toda a tela sendo que 

/ " : ' S 

[ FLASH 1 significa ativado e FLASH 0 significa 

V des ativado 
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As novas instruções ou comandos neste capitulo 


GRAPHICS 


FLASH 


Diz ao TK 90X para entrar ou sair do 
modo grafico e e obtido com o 
CAPS SHIFT +9 

■Diz ao TK 9#X para cintilar (FLASH) o 
item impresso a mesma taxa que a do 
cursor. 

0 FLASH esta abaixo da I tecla V 


SCREEN$ -►'Pergunta ao TK 90X o que existe na te 

la em uma posição especificada. 

Esta abaixo da tecla K . 

Vã agora ao Capítulo 23 e tecle o pro 
grama 7. 



Capítulo 20 

Desenhando com linhas bem finas 


A "forma plana" que foi desenhada no pro¬ 
grama 17 era constituida de "blocos" bastante gran¬ 
des e nao parecia muito com um aviao real. 

Desenhar figuras com os caracteres gráfi¬ 
cos é mais ou menos a mesma coisa que desenhar algo 
com lãpis de desenho ("crayon") não apontado e bem 
grosso ... 

Para que as suas representações graficas 
se tornem mais realistas voce necessita de um lápis 
bem mais "fino” e com uma ponta bem apontada. 

É agora que vou lhe ensinar como o TK 90X 
desenha figuras no modo de : alta resolução ou seja 
com contornos representados por linhas bem delga¬ 
das. 

0 TK 9$X ê realmente "fora de serie" visto 
que com ele pode-se facilmente misturar gráficos de 
alta resolução com o texto (letras, números e ou¬ 
tros caracteres não gráficos). 

As instruções de alta resolução para o TK 
90X subdividem a tela em pontos ou pixeis . 

Imagine que cada caractere grafico ante¬ 
rior seja subdividido em "quadradinhos" menores co¬ 
mo ocorre em um tabuleiro de xadrez ou seja cada 
quadradinho tem tamanho do caractere grafico. 
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Para começar note que na tecla qJ tem-se 
em branco a palavra-chave PLOT. 

Esta instrução informa ao TK 90X para co¬ 
locar um ponto em um lugar especificado da tela. 

Para se especificar este ponto apos a ins¬ 
trução PLOT voce deve indicar a abscissa (x) e a or 
denada (y) conforme se mostra na Figura 9. 



Figura 9 


Portanto a instrução PLOT x,y diz ao TK 90X 
para preencher o pixel em x,y (voce sabe, que cos¬ 
tuma-se chamar a estes numeros de coordenadas' do 
ponto...). 

Tecle PLOT 0,0 (ENTER!) 

Voce consegue ver um pequeno ponto no can¬ 
to baixo da esquerda? 

Uuuo t imo !II 

Tecle agora PLOT 127,87 ( jffjg ) 

Voce tem agora um pequeno ponto no centro 


da tela. 
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Ao contrario dos numeros de linha e coluna 
para as instruções PRINT AT e SCREEN$ , que foram 
usadas era capítulos anteriores, as coordenadas da 
PLOT não tem a origem (0,0) no canto alto da es¬ 
querda. 

Os numeros da tela no modo grafico de alta 
resolução começam no .canto baixo da esquerda, alias 
como voce esperto(a) leitor(a) jã percebeu... 

Os números na horizontal podem ir de 0 ate 

255 . 

(valores de x = abscissa) e os na vertical 
de ^ ate 175. 

(valores de y - ordenada). 

Você vera a partir de agora a grande dife¬ 


rença. 



Este programa vai lhe permitir desenhar 
coisas na tela da sua T.V. 

Muito mais do que isto, para que você nao 
se sinta perdido(a), o TK.90X lhe mostrara sempre 
um pixel cintilando . 

Use as teclas com- as setas '(5,6,7 e 8) pa¬ 
ra mover o cursor. 

A medida que ele se desloca deixara um ras¬ 
tro, que pode ser um lindo desenho... 

10 REM*** rascunho de um desenho*** 

20 BOEDER 6 : CLS 
30 LET X = 127 : LET y = 87 
40 PLOT INVERSE 1 ; X,y 
50 LET m$ = INKEY$ 
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60 PLOT XNVERSE 0; x,y 

70 PRINT AT 5,10; "x=0”; x; "Qy = " ? Y» ”□" 

80 IF m$ = ""THEN GOTO 40 

90 IF m$ = "5" AND x > 0 THEN LET x = x - 1 

100 IF m$ — ”8" AND x < 255 THEN LET x = x + 1 

110 IF m$ - ”7" AND y < 175 THEN LET y = y + 1 

120 IF m$ — "6" AND y > 0 THEN LET y = y - 1 

130 SOUND .25,0:SOUND. 25,2:SOUND.025,5: SOUND.25,7 

IV GOTO 40 \ | Lí ^ t far rU; " a ° 

Execute este programa e ache o seu rumo o 
mais bçeve possível na tela... 


1) A instrução PLOT INVERSE 1; x,y diz ao 
TK 90X para inverter a cor dos caracteres com a cor. 
do fundo quando o codigo apos a INVERSE e 1. 

Se depois do INVERSE aparecer o codigo 0 de 

s ativa-se a inversão. 



2) Se voce quiser que os seus pontos te¬ 
nham cor, pode usar uma instrução do tipo: 

jJX PLOT INK codigo da cor; x,y. 

este valor pode 
ser de 0 a 7 

Experimente no lugar da linha 60 

PLGT INK 1; x,y-e voce terã os pontos 

era azul 

Mude depois a linha 60 para 

PLOT INK 2; x,y -e você terá os pontos 

em vermelho. 
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O seu TK 90X aceita entretanto outras ins¬ 
truções para desenhar e entre elas uma muito impor¬ 
tante é a DRAW (palavra chave branca na letra W) . 

A forma geral deste comando e 


DRAW x,y 

e que manda o seu TK 90X desenhar (DRAW) uma reta. 

A reta vai.do ultimo pixel "plotado" ate a 
próxima posição na tela estabelecida por x,y. 


Tente o seguinte. 


{ CLS ( Ienter} ) 

DRAW 255 , 175 

\ . 

pixeis pixeis 
para a para 
direita cima 

e veja se sai o que está mostrado‘na Figura 10. 



Figura 10 

Nora que depois da instrução CLS, a reta 
começará no (0,0) e irá ate o outro extremo (na dia 
gonal) ou seja ate o ponto (255,175). 
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Para se desenhar uma linha reta para baixo 
da tela basta colocar um sinal de menos na 
frente do numero. 

Assim por exemplo, para desenhar uma linha 
para baixo e para a esquerda basta escrever 


DRAW -x,-y. 

/ N 

(caso particular DRAW -130,-110) 

\ 

. f. 

pixeis 

\ 

pixeis 

oara a 

para a 

esquerda 

direita 


Note que se voce escrever DRAW -20,20 isto 
faz com que o cursor grafico fique 20 unidades para 
a esquerda e 20 unidades para cima. 

Na situação mais comum, se ambos os nume¬ 
ros após o DRAW sao positivos isto quer dizer que o 
x da os pixeis para a direita e o y os pixeis para 
cima, a partir do ultimo ponto referenciado. 

Isto pode parecer um pouco complicado, po¬ 
rem nao o e !!I 

Assim que voce perceber uma vez como se p 
de desenhar uma figura com a instrução DRAW tudo f 
£ 2 “a claro e uma boa maneira para se chegar a este 
fim e mudar o ponto inicial. 

Para tanto, tecle e execute o programa 19. 



10 REM *** desenho de um triângulo *** 

20 INPUT "Entre com x =0" ;x, "Entre com y=0";y 

30 PLOT x,y ^"/Você não esqueceu que estes \ 

40 DRAW 30,0 ( números são obrigatoriamente J 

. M ( oositivos 

30 DRAW 0,30 \ - 

' \ 0^x^ 255 '‘n 

60 DRAW -30,-30 "V 0^y^l75 J 

70 GOTO 20 --II-—-^ 


O! ‘Hl 
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0.I♦ Note a vírgula (",”) onde voce comumente es¬ 
peraria encontrar um ponto e vírgula ou seja 
na 1inha 20. 

Esta vírgula diz ao TK 90X para imprimir 
a "próxima coisa" na metade da tela. 

Ao executar (RUN) o programa 19 ele lhe per 
guntara inicialmente pela abscissa (x) e depois pe¬ 
la ordenada (y). 

Ele desenhara o pixel e então aplicara a 
instrução DRAW para desenhar um triângulo a partir 
deste ponto desenhado pela PLOT. 

Caso as coordenadas do seu ponto estejam 
muito próximas dos bordos da tela para que o triân¬ 
gulo seja desenhado,o TK 90X pode mandar a mensagem: 

B : Inteiro excede limite 30 : 1 

Se ainda não deu para sentir como funciona 
o DRAW tecle e execute o seguinte programa: 

PROGRAMA 20 1 


10 REM *** reticulado simétrico *** 

20 LET p = RND*7 : LET q = RND*7 : IET r = RND*7 

30 IF q = r+1 THEN GOTO 20 

40 BOEDER p : PAPER q : INK r+1 

50 FOR j=l TO 175 STEP 4 

60 PLOT 0,j 

70 DRAW 255-j,-j 

30 PLOT j,0 

90 DRAW 255-j,j 

100 PLOT 0, 175-j 

110 DRAW 255-j,j 

120 PLOT j,175 

130 DRAW 255-j,-j 
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140 NEXT j 

150 FOR z=l TO 999 : NEXT Z 
160 CLS 
170 GOTO 20 

Execute' e veja se sai o que está mostrado. 



Figura 11 


Gostou? 

Em caso afirmativo adquira o nosso livro 
(sÕ faltava ser de um outro...) "Gráficos no TK 
90X". 

Existe uma outra forma, bem mais poderosa 
de utilizar a instrução DRAW. 

Assim como se pode usar DRAW para desenhar 
linhas retas, pode-se fazer com que o DRAW desenhe 
partes de uma circunferência ou seja arcos de cir¬ 
cunferência bastando para isto acrescentar um ter¬ 
ceiro numero apos a palavra chave DRAW. 

Por enquanto voce pode ate ficar numa ig¬ 
norância parcial porem mude por favor a linha 60 do 
programa 19 para: 


60 DRAW -30,-30, Pl/2 


145 


PI ê a palavra que está em azul acima da 
e como significa 7T ou seja aproximadamente 3,14 ra 
dianos o nosso antigo triângulo se transformará em 
algo parecido com um pedaço de bolo. 

Teclou, executou e concordou? 

Fantasticooooo! I ! 

Caso voce queira desenhar uma circunferên¬ 
cia completa basta utilizar PI. 

Mude mais um pouco o programa 19 ou seja 
acrescente as linhas: 

40 DRAW 80, 0, PI 
50 DRAW -80, 0, PI 

e apague a linha 60. 

Execute e veja se obtêm uma circunferência. 

Obteve? 

Formidável. 

Porem, já, já você aprenderá a desenhar 
circunferências de uma forma bem ,mais simples. 

Como uma ultima ênfase especial e parti¬ 
cular para a instrução DRAW tecle o programa 21. 



10 REM *** o caminho de um microbio desorientado** 

20 PLOT 127,87 

30 LET x .= 30 - ' RND *45 

40 LET y = .30 - RND * 45 

50 LET p - PI * RND 

60 DRAW x,y,p 

70 SOUND .25,0 : SOUND .25,-1 : SOUND .25,-3 
: SOUND .25,-5 : SOUND .25,-7 : SOUND .25,-8 
: SOUND .25,-10 : SOUND .25,-12 



it e c 1 a M 
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80 GOTO 30 

Execute e veja se sai, independente da exe 
cuçao diversas vezes da escala musical, algo como 
mostrado na Figura 12 e ate não sair fora da tela. 



Figura 12 

A forma simples que o seu TK 90X lhe poss 
bilita desenhar circunferências esta ligada a in 
truçao CIRCLE. 

A palavra chave CIRCLE e uma palavra em 
vermelho abaixo da tecla H e a sua forma geral e 



abscissa ordenada raio da 


do centro do centro circunferência 


Para começar a entender esta instrução te¬ 
cle o seguinte programa: 



10 REM *** circunferências *** 
20 PLOT 75,85 


■H| Ml 
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30 DRAW 100,0,PI 
40 DRAW -100,0,PI 
50 CIRCLE 150,75,60 

Exe cu te !!! 

0 que você concluiu? 

Nada.' 

Não e verdade! 

Você notou que comandado pela instrução 
CIRCLE a circunferência nao so ê feita mais depres¬ 
sa como parece mais com uma circunferência... 

Execute agora o programa 23 que lhe dara 
ou melhor enchera a tela de'circunf erênci as (25 no 
total) com centros e raios aleatoriamente escolhi¬ 
das e ainda com um pequeno "fundo musical". 



10 REM *** circunferências aleatoriamente defini¬ 
das *** 

12 PAPER 0 

15 LET n=l 

20 LET r = RND *50 

30 LET x = r+RND * (255-2*r) 

40 LET y =r+RND * (175-2*r) 

50 INK (RND*50)/7 
60 CIRCLE x,y,r 

70 SOUND .25,9 : SOUND .25,11 : SOUND .25,12 
: SOUND .25,5 

30 LET n = n+1 : IF n > 25 THEN GOTO 100 
90 GOTO 20 

100 FOR Z=1 TO 2000 : NEXT Z 
110 CLS 
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Sai algo como esta mostrado na Figura 13. 



Existe uma outra forma que você caro(a)lei 
tor(leitora) pode usar a instrução DRAW. 

Suponha que as coordenadas (posição) do úl 
timo pixel plotado. estão armazenadas em alguma par¬ 
te da memória do TK 90X. 

Desta forma se você deseja usar coordena¬ 
das absolutas, assim como quando esta verificando 
uma posição em um mapa geográfico, tudo o que tem 
que ser feito e perguntei' ao TK 90X que coordenadas 
eram e subtraí-las das novas coordenadas. 

Ate agora, você sempre pediu ao TK 90X pa¬ 
ra olhar para os nomes de variáveis nas suas caixas 
de memória. v 

Estes nomes eram constituídos de letras ou 
então de palavras como n$, s$, arma, n, etc. 

Mas assim como um sitio pode ter um nome 
(como "Xangrila", "Repouso do guerreiro”, "Goiere", 
etc...) para distinguir um do outro, evitar a confu 
são e podermos encontrar e entrar no sítio correto 


quando somos convidados para algum sensacional chur 
rasco o TK 90X prefere utilizar numeros no lugar de 
nomes para identificar locais e principalmente ende 
reços de memória. . 

0 carteiro também gosta de um numero gran¬ 
de e bem legível para não atrapalhar o seu trabalho. 

0 TK 90X possui milhares e milhares de cai 
xas de memória e cada uma delas tem um número parti 
cular. 

Assim como um carteiro procura desesperada 
mente o número correto de uma casa ou de um aparta¬ 
mento, também o TK 90X quando perguntado para olhar 
ou espiar (PEEK) dentro de uma caixa de memória(por 
exemplo de número 37156) o faz com uma velocidade 
muito maior do que quando se manda olhar para n$, 
"arma", t, m$ etc. 

0 único problema é que você deve conhecer 
o endereço correto. 

Co.mo o TK 90X tem muitos endereços (milha¬ 
res são para uso próprio) e os números correspondeu 
tes aos mesmos são bem grandes e nada fáceis para se 
rem memorizados, no Apêndice C do Manual de Operação 
do TK 90X aparece uma lista completa dos endereços. 


Consulte-a!! 

0 TK 90X armazena a abscissa x no número 
de endereço 23677 e a ordenada y no número de ende¬ 
reço 23678 (verifique isto no Apêndice C do Manual 
de Operação do TK 90X). 

Para fazer cora que o TK 90X olhe nessas cai 
xas de memória deve-se utilizar a palavra chave 
| PEEK que é uma instrução em azul acima da letra 
" 0 " . 
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A forma mais pratica e teclar o programa 
24 e assim entender o efeito do PEEK antes de par¬ 
tirmos para uma genera1izaçao. 

^PROGRAMA 24 

10 REM *** espiando onde não é simples olhar...*** 
20 INPUT "Entre com xQ’; x; "QEntre com yQ" ?y 
30 DRAW x - PEEK 23677, y - PEEK 23678 
40 GOTO 20 



Quando for executar o programa ao ser "in¬ 
terpelado" pelo TK 90X sobre os valores de x,y en 
tre com os que aparecem ao lado da "casinha" da Fi¬ 
gura 11. 


Alias, aos poucos você ja está percebendo 
o que vai se querer programar ou ao menos desenhar. 



A sua criatividade está despertada e que 
tal como exercício intelectual desenhar,aproveitan- 
do o programa 24, o aviao da Figura 15. 



Figura 15 


vr o 


Caso você nao consiga, adquira o nosso li- 

que la voce encontra a 


"Gráficos no TK 90X" 


resposta... 

Vamos'agora indicar-lhe úm método melhor 
para entrar com os numeros (dados) do que aquele há 
pouco aplicado ou seja, usando a instrução INPUT. 

Voce pode armazenar dados (DATA) no seu. 
programa 24 acrescentando as seguintes linhas: 


50 DATA 80,0,180,20,180,80 
60 DATA 160,120,60,100,40,80 
70 DATA 40,20,80,0,80,60 
80 DATA 60,100,80,60,130,80 


Voce sabe de onde vieram os numeros acima? 

Ah , bom lll 

0 que se fez anteriormente foi voce ler os 
dados e introduzi-los aos pares através da instru¬ 
ção INPUT dentro do TK 90X. 

Caso queira que o TK 90X faça isto para 
você basta informar-lhe que leia (READ) os dados ■ 
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(DATA) e para tanto .e necessário mudar a linha 20 

para ______ 

20 READ x,y 

Execute agora o programa 24. 

Sem duvida o TK 90X e bem mais rãpido que 

você I 

0 TK 90X parou com a mensagem 
E fim de dados 20:1 

Agora você ja sabe como utilizar todos os 
comandos gráficos e mais uma vez insisto; obediente 
leitor(a) tente criar as suas próprias figuras e 

neste caso e conveniente ter um pouco de papel mili 
me trado para otimizar o seu trabalho* 

Este capítulo foi farto de novas instru¬ 
ções e um bom resumo ser-lhe-a muito util. 


CIRCLE x,y,r Com esta instrução desenha-se uma circunferen 

cia centro em x,y e um raio de r pixeis. 


DRAW x,y 


DRAW x,y,p 




_Diz ao TK 90X para desenhar uma linha reta en 

tre o ultimo ponto "plotado" (PLOT) e o pixel 
especificado. 

Esta 1 " na tecla W . 

Desenha uma curva do ultimo ponto plotado 
ate o pixel especificado por x,y e p e o angu 
lo especificado em radianos. 

Entre dois pontos podemos traçar dois arcos 
de circunferência diferentes desde que se 
3flK parta do mesmo ponto. 

*_o arco desenhado no sentido horário e aquele 
que está acima de dois pontos que unidos estão 
na horizontal. 
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Já o arco desenhado no sentido anti-horário 
estará abaixo. £ ^ y ] 

Ângulos com p positivo desenham arcos no sen¬ 
tido anti-horário e aqueles com p negativo no 
sentido horário. 

DRAW x-PEEK 23677, y-PEEK 23678 -►Desenha uma linha reta do 
último ponto representado ate o novo ponto de 
coordenadas (x,y). 


INVERSE 1 


PLOT x,y 


Diz ao TK 90X para preencher o pixel na posi¬ 
ção especificada com a cor do PAPER ou seja 
para apaga-lo. 

Está abaixo da tecla M 

Diz ao TK 90X para ativar o pixel em uma posi 
çao especificada com a cor do INK. 

Está na tecla Q 

Diz ao TK 90X para ler os dados das linhas de 
instrução DATA que podem estar em qualquer 
ponto do programa. 

Armazena-se aí uma lista de dados. 

Caso sejam numéricos basta na linha da ins¬ 
trução DATA ter os dados separados por vírgu 


\ Por outro lado se tivermos dados alfanumiri- 

VjlVyV ) cos eles devem aparecer entre aspas. 
,'WtK 'i Os dados nas linhas DATA sao lidos e retira- 

\ dos sequencialmente pela instrução READ. 

Geralmente por uma questão de organizaçao as 
instruções DATA aparecem ou no início ou no 
fim de um programa,porem nada impede que es¬ 
tejam colocadas em qualquer ponto. 

Quando a leitura' dos dados pela instrução READ 
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termina, todos os dados deveriam ter sido usa 
dos e por isto o numero de dados disponíveis 
deve ser igual ao numero de vezes que voce 
indicou, no programa, para que o TK 9Í>X efe¬ 
tue a leitura e a retirada. 

Caso a leitura prossiga se produzirá a mensa¬ 
gem de erro 

E - Fim dos dados 

a menos que voce restaure (RESTORE) a l 1 * <ta 
de dados usando um comando RESTORE. 

Cada vez que o RESTORE e executado, os dados 
das instruções DATA voltam a ser lidos desde 
o início pela próxima instrução READ. No Ca¬ 
pítulo 21 vai aparecer uma super-aplicaçao do 
RESTORE (programa 25). 

SAVE "nome" SCREEN$ ——Caso você queira que uma figura fi¬ 
que armazenada em fita basta usar SAVE "nome" 
SCREENS. 

LOAD "nome" SCREEN$ ——Esta e sequência de instruções que 
você deve enviar ao TK 90X para que ele car 
regue uma figura para a tela que está guarda¬ 
da na fita. 


PEEK endereço -—Com esta instrução efetua-se a leitu 

ra de um determinado endereço da memória, re¬ 
tornando p dado que aí se encontra. Consulte 
y—o Apêndice C do seu Manual de Operaçao do 

Portanto com o PEEK podemos manipular a memõ- 
^ ■yv ria do TK 90X. 


Que resumo hein!!?’! 
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Ê uma ótima ideia ir ao Capítulo 23 e ana¬ 
lisar os programas 8, 9, 10, 11 e 12 que serão mui 
to úteis para que voce compreenda melhor ainda algu 
mas das novas instruções que surgiram só neste capí 
tulo misturadas obviamente com as que voce já co¬ 
nhece melhor. 









Capítulo 21 

Incrementando ao máximo 
a alta resolução 


Agora que voce jã sabe como se pode dese¬ 
nhar quadros noTK 90X seria uma boa ideia utilizar 
este recurso em jogos. 

Apesar de "muito clássico" vamos começar 
com o jogo ãa forca o qual nos permite dar-lhe uma 
serie de explicações. 

No jogo da forca (programa 25) voce deve 
advinhar uma palavra escolhida de uma lista de pala 
vras pelo seu TK 90X. 

A medida que você vai errando a figura de 
um boneco enforcado vai sendo desenhada. 

Como este programa i um pouco comprido va¬ 
mos subdividi-lo em pequenas secções. 

Cada trecho pode ser escrito isoladamente. 

Uma maneira de fazer isto e usar a instru¬ 
ção GOSUB com a qual se desvia para uma subrotina. 

Como voce ja sabe GOSUB e bem semelhante 
ao GOTO (alias voce jã viu o que faz o GOSUB ante- 
riòrmente...). 

A principal diferença ê que com GOSUB o 
TK 90X lembra onde estava antes no programa. 

Ele sai do programa principal, executa o 
que deve ser feito na subrotina e volta ao programa 
principal na instrução seguinte aquela da qual ele 



saiu toda vez que encontrar a instrução RETURN den 
tro da subrotina (veja a Figura 16). 


Programa 

principal 



Instrução 
GOSUB 


Instruçao 


Instrução 


Instrução 


Ins truçao 


Instrução 



Colocar a 
letra na 


Exibir um "as 
terisco" parã 
cada letra da 
palavra 



Verificar se 
a letra exis 
te na pala- - 


Instruçao 
RETURN 


/ Esta > 
letra esta 
v na pala 
\vra ? V'' 


Figura 16 


Gomo e possível repartir um programa em di 
versas subrotinas? 

Um bom início (as vezes) e esboçar o pro¬ 
grama todo em um fluxograma como o indicado na Figura 
17. 

As vezes, por incrível que possa parecer e 
bom começar pelo fim... 


Imprima a le¬ 
tra usada 


Desenhar a pro 
xima parte dõ 
"enforcado" 


/ Com- \ 
pletou o de- 
\ senho? / 



alçapao 


Figura 17 
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Muitos programas já tem embutido dentro de 
si o comando SAVE. 

Alias esta e uma outra boa ideia visto que 
garante a voce uma respeitável economia e nao leva 
os seus dedinhos a ter calos inúteis pois nao e ne¬ 
cessário bater os programas novamente. 

As primeiras e neste caso ultimas linhas 
do programa 25 " 0 JOGO DA FORCA 1 * são; * 

^PROGRAMA 25 ^ 


900 REM *** armazene a rotina 
910 SAVE "O jogo da forca" 

920 CLS : SOUND 1,20 

930 PRINT "Reenrole para verificar" 

940 VERIFY "O jogo da forca" 


Com estas linhas no programa 25 você pode 
"preservar" (SAVE) o mesmo usando em algum lugar a 
instrução GOTO 900. 

Quando o programa terminar se ouvira umsom 
e lhe serã pedido cuidadoso(a) 1eitor(leitora) para 
verificar (VERIFY) a gravaçao para estar seguro que 
realmente se armazenou na fita adequadamente sem 
nenhuma "mancada” como por exemplo ter ligado o 
"plug" do gravador no seu TK 90X. 


A próxima rotina e a da lista de palavras 
(20 no nosso caso particular) 


800 REM ** Escolha de uma palavra ** 
810 RESTORE 865 
820 READ numero 

830 FOR J=1 TO INT (RND*número) + 1 
840 READ p$ 
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850 NEXT J 
860 RETURN 

865 DATA 20 : REM este ê o numero de palavras do 


jogo 

870 DATA "hidra", "queijo", "crescer", "contumaz", 
"fixar" 

875 DATA "ululante", "hebdomadário", "curso", 
"amplexo", "xa" 

880 DATA "veemência", "discussão", "rural", "giz", 
"venti1ador" 


885 DATA "lista", "bandeira", " 
"persiana" 

Vejamos como funciona este tvecho 



Linha 810— *»-Diz ao TK 90X que os dados (DATA) para esta ro¬ 


tina começam na linha 865.ou seja toda vez que 
se entrar na linha 810 serão lidos todos os da¬ 


dos que forem indicados na linha 830 a partir 
do primeiro dado da linha 870 


Linha 820—**. Le (READ) o numero que está armazenado na li¬ 
nha 865. 

Este ê o número de palavras na lista. 

•Caso voce queira acrescentar mais palavras, po¬ 
de desde que mude o número que aparece na li¬ 
nha 865. 


Linhas 830 a 850 —Com este "loop" escolhe-se uma palavra 
aleatoriamente da lista e armazena-se a mesma 
em p$. 

Linha 860 —*■ Faz com que o TK 90X retorne (RETURN) ao progra 
ma principal, uma instrução apos aquela que 
fez cora que se entrasse nesta subrotina. 
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0. I. J Se voce quiser testar a rotina acima basta 
escrever GOSUB 800, seguida de um PRINT p$. 

Nao esqueça de guardar (SAVE) o programa 
depois que terminar cada rotina. 

Vamos agora mostrar como se pode imprimir 
asteriscos em numero igual ao das letras da palavra 
escolhida pelo TK 9$X. 

400 REM *** imprimindo asteriscos *** 

405 CLS : LEI t = 0 : BORDEP 3 : PAPER 0 : INK 1 
410 PRINT AT 0,10'; FLASH 1; "0 JOGO DA FORCA" 

415 GOSUB 800 : REM AÍ ocorre o desvio para a 

■subrotina na qual se escolhe uma palavra. 

420 LET c$ “ "" 

425 FOR j=l TO LEN p$ 

430 PRINT AT 5 ,18 + j ; 

435 LET c$ = c$ + 

440 NEXT j 
445 STOP 

Vamos explica r um pouco como funciona este trecho 

Linhas 405 e 410 —Estas sao as primeiras linhas do pro¬ 
grama principal. 

Com elas se ajustam as diversas cores, o nume 
ro de tentativas (valor inicial zero) e o ti¬ 
tulo do programa piscante 

Linha 415 —•- Vai-se a subrotina. 

Linha 420 -—•- Você es tara mantendo uma copia da palavra na 
tela na caixa de memória (variãvel) c$. 
Inicialmente atribui-se a c$ uma STRING vazia 
ou seja o nada para que voce tenha certeza 



que não existe ai nenhuma palavra antiga e in 
desejada. 


Linhas 425 a 440 —Forma-se um laço com o qual pode-se im¬ 
primir os asteriscos, um para cada letra da 
palavra que voce deve advinhar. 

Estes asteriscos serão colocados na caixa de 
memória (variãvel) de nome c$. 

Na linha 425 aparece a instrução LEN que diz 
ao TK 90X para contar quantas letras existem 
na palavra. 

Na- linha 430 imprime-se um asterisco cada vez 
que se dã uma volta -um asterisco .para cada 


letra de p$. 

Neste ponto você pode fazer um teste do seu 



programa executando-o (RUN) ate este ponto. 
Como você pode notar surge um certo número de 
asteriscos no canto da direita da tela. 

Agora tecle PRINT p$ e verifique que existe 
o mesmo número de asteriscos e de letras. 


A seguir vai o- trecho do programa que rece 


be a sua letra ou seja a letra escolhida por você. 


700 REM ** aceitando a sua letra ** 

710 PRINT AT 21,0; "Entre com a sua escolha □ " 
715 PAITSE 0 : SOUND .04,20 
720 LET = INKEY$ 

725 IF £$ = CHR$ 13 THEN GOTO 715 
730 PRINT AT 21,25; 2$ 

735 PAUSE 0 : SOUND .04,20 
740 LET e$ - INKEY$ 

745 IF e$ < > CHR$ 13 THEN LET 2$ = e$ : GO.TO’*730 
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750 PRINT AT 21,0; “ □□□□□□□□□□□□□□□□□□□□□DDOD » 

7 55 RETURN 25 espaços 

Você pode também testar esta subrotina en¬ 
trando com GOSUB 700 e então pressionando qualquer 
tecla. 

A instrução PRINT AT 21,18; 2.$ na linha 
730 e para que voce se convença que o programa fun 
ciona. 

Quando estiver testando, aperte todas as 
teclas que tem letras para ver se realmente ele fun 
ciona. 


Mais detalhes de como funciona o trecho de 700 atê 
735 


Pare um pouco para pensar e entenda o que 
este programa realmente precisa como uma entrada 
(INPUT). 

Se voce utilizasse um comando INPUT(comum) 
um(a) jogador(jogadora) poderia acidentalmente man¬ 
ter uma tecla pressionada durante muito tempo ou pe 
lo habito bater desnecessariamente para este progra 
ma na tec1 a \ENTER antes de apertar uma tecla com le 
tra ou ainda poderia fazer o quadro rolar fora da 


tela. ( 

Ao se usar para a entrada, a função INKE V $, 
evita-se todos estes problemas visto que so pode 
entrar uma letra de cada vez. 


Linha 710-►Imprime-se a mensagem que espera pela sua es¬ 

colha, melhor dizendo pelo seu chute. 

•—programa sofre uma parada ate que uma tecla 
seja pressionada e então ouve-se um som. 


Linha 715 
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Linha 720 —'►Guarda-se a letra da tecla que foi apertada. 

Linha 725 —Esta instrução verifica que nao foi apertada a 
tecla l ENTEFL 

Caso isto tenha acontecido o TK 90X volta para 
715 para- que entre realmente uma letra. 

Note que CHR$ 13 significa |ENTE~r[ para o TK 90X. 

Linha 730—► Imprime a letra depois da mensagem que pedia es 
ta escolha (linha 710). 

Linhas 735 a 745 —Para-se novamente o programa ate que 
uma segunda tecla seja pressionada. 

Neste ponto novamente se testa se a tecla ENTER 
nao foi apertada (CHR$ 13). 

Caso nao tenha sido, então a tecla pressionada 
será o novo valor para 2-$. 

Desta forma, caso voce tenha teclado uma letra 
errada você pode ainda corrigir o erro neste 
trecho do programa. 

Desvia-se novamente para 730, imprime-se a cor 
reçao e agora espera-se pelo 
nuar o programa. 

Resumindo , na primeira vez voce deve apertar 
uma letra que sai impressa e se estiver correta 
aperte a tecla ENTER . 

Linha 750 —•►Tendo sido apertada a tecla ENTER \ a mensagem 
da linha 710 ê apagada e o conteúdo de 2.$ vol¬ 
ta ao programa principal devido a linha 755 que 
tem a instrução RETURN. 

Verificando as letras 

445 GOSUB 700 : REM Esta e a subrotina na qual você entra 
com a sua letra 

450 REM Verificação se a letra escolhida existe na palavra 


para conti 
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455 LET correto = 0 
460 FOR i = 1 TO LEN p$ 

465 IF ÍL$ <>p$ (i) THEN GOTO 490 
470 PRXNT AT 5,18+i; 1% 

475 LET correto = 1 
480 SOUND .05,10 
485 LET c$(i) - &$ 

490 NEXT i 

Mais uma vez, você pode testar o programa 
ate este ponto. 

Como anteriormente, o TK 90X escolhera uma 
palavra e mostrara o numero de asteriscos que cor¬ 
respondem as letras da mesma. 

AÍ, lhe pedirá uma letra, verificará se a 
mesma está contida na palavra e em caso positivo im 
primirá aquela letra nas posiçoes corretas da pala 
v r a. 

Agora deve-se ensinar ao TK 90X o que fa¬ 
zer se a letra que você escolher estiver errada. 

Acrescente ao programa as seguintes linhas: 

495 IF correto = 0 THEN GOSUB 650 

500 IF c$< > p$ AND t< 10 THEN GOTO 445 

510 IF c$< > p$ THEN GOTO 560 

Vejamos como funciona o trecho do programa que vai 

da linha 445 ate 510. 

Linha 445—*-Vai-se a subrotina que pede a você uma letra. 

Linha 455 —»> Aqui a variável "correto" poderá ter um dos 
dois possíveis valores 0 ou 1 . 

Se (IF) o seu valor for 1 então "correto" I ver 
dadeira e se (IF) for 0 então (THEN) "correto" 
ê falsa. 
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Deve-se começar com "correto" valendo inicial¬ 
mente zero ( 0 ;. 

Linha 460—Aí começa o "loop" para o numero de letras que 
existe na palavra armazenada em p$. 

Linha 465 - 7 *-Com esta instrução pode-se saltar o resto do 
laço se f,$ nao e i, v ual a nenhuma letra de p$. 
Digamos que p$ = "giz" então p$(l) = "g"> 
p$ ( 2 ) = "i" e p$(3) = " 2 ". 

Se a sua primeira escolha for por exemplo a le¬ 
tra "a" então £$ - "a" e a sequência do programa 
será tres vezes as linhas 460,465 e 490. 

Linha 470—► Com esta instrução apresenta-se a letra armaze¬ 
nada em £$ (e que existe na palavra guardada 
em p$) mostrando-se a mesma na tela na posição 
correta. 

Linha 475 —*- A partir deste ponto "correto" ê verdadeira 
pois a letra e a certa... 

Linha 430 —•> Façamos um pouco de barulho para comemorar o 
acerto... 

Linha 485 —Mantem na "copia" c$ a situação mais recente da 
tela. 

Linha 495—► Faz o programa desviar para uma subrotina que 
nao lhe foi apresentada ainda. 

Linha 500 —*» Envia o TK 9^X de volta ao programa se (IF) am¬ 
bos c$ nao é igual a p$ e (AND) se o número de 
tentativas (t) é menor que 10 . 

Linha 510 —Agora você já deu dez "chutes" e não conseguiu 
acertar. 

Se (IF) c$ nao e igual a p$ então (THEN.) com es 
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ta instrução o TK 90X é desviado para a rotina 
que ira enforcar ura ser humano... 

Também esta parte, está Logo aí na frente. 


Vamos então oompletar o programa 


Al vai a subrotina que se chamou na linha 


650 REM imprime-se a advinhaçao errada*** 

655 LEI t » t+1 

660 PRINT AT 6 + t, 21; t; Z$ 

665 REM ** Por enquanto vamos deixar uma linha va 
zia *** 

670 RETURN 


Esta rotina e bem simples de entender. 

Com ela conta-se o numero de tentativas(1i 
nha 655) e utiliza-se esta contagem para fazer na 
tela uma lista na vertical do número da tentativa e 
da letra usada na mesma. 

AÍ então volta-se ao programa .principal. 

Por enquanto na linha 665 vai uma linha 
com um REM porém é aí que vai uma das partes mais 
importantes do programa. 

Existem ainda duas pequenas rotinas que 
você deve teclar e aí o programa todo estará pronto 
para ser testado. 

Acrescente as linhas 

520 REM *** Voce e um homem ou uma mulher livre*** 

530 PRINT AT 21,0; "Você esta livre!!!" 

540 SOUND 2,20 : SOUND 1,20 : SOÜND .5,20 

550 GOTO 400 

560 REM *** A execução 'correu *** 
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570 PRINT AT 21,0; "Lamentavelmente voce jS era. " 
580 SOUND 2,-20 : SOUND 2,-30 : SOUND .5,-40 
590 GOTO 400 


Você pode agora testar o progràma e ele de 
veria (deveria...) funcionar adequadamente!?!?.*? 

0 TK 90X deve escolher uma palavra e exi¬ 
bir o número correto de asteriscos. 

Então ele lhe pede uma letra. 

Esta é verificada e caso exista na palavra 
isto lhe e exibido. 

Em caso contrario conta-se a sua tentativa 

errada. 

Depois de 10 tentativas erradas, você veri 
ficará que foi enforcado(a), porem isto não é tão 
fácil assim e se usar um-pouco a cuca, tiver ura pou 
co de sorte e com todas estas tentativas (10) segur 
ramente escapará]! 

Tanto numa situaçao como na outra o progra 
ma recomeçará "automaticamente". 

Tudo está funcionando adequadamente? 

Uoo timo !!! 


Escreva então a ultima parte do programa 
que consiste de 10 subrotinas, uma para cada advi¬ 
nhaçao errada. 

De saída, substitua a linha 665 por: _ 


665 GOSUB t * 25 


e aí vai o final: 


10 GOTO 400 


25 REM *** pode desenhar a escora vertical" 
30 PRINT AT 6+t,0; "escora vertical" 

35 RETURN 






1 70 

50 REM***pode desenhar a travessa (peça transver¬ 
sal)*** 

55 PRINT AT 6+t,0; "travessa" 

60 RETURN 

75 REM***pode desenhar o suporte*** 

80 PRINT AT 6 + t, 0 ; "suporte" 

85 RETURN 

100 REM***pode desenhar o nariz*** 

105 PRINT AT 6 + t, 0 ; "nariz" 

110 RETURN 

125 REM***pode desenhar o rosto*** 

130 PRINT AT 6 + t, 0; "rosto" 

135 RETURN 

150 REM***pode desenhar o corpo*** 

155 PRINT AT 6+t,0; "corpo" 

160 RETURN 

175 REM***pode desenhar o braço direito*** 

180 PRINT AT 6 +1,0 ; "braço direito" 

185 RETURN 

200 REM***pode desenhar o braço esquerdo*** 

205 PRINT AT 6+t,0; "braço esquerdo" 

210 RETURN 

225 REM***pode desenhar a perna direita*** 

230 PRINT AT 6+t,0; "perna direita" 

235 RETURN 

250 REM***pode desenhar a perna esquerda*** 

255 PRINT AT 6+t,0; "perna esquerda" 

260 RETURN 

Voce ainda lembra como e chamada cada uma 
destas subrotinas? 

Resp.: Com a linha 665, onde esta a instrução GOSUB t*25. 

Em cada tentativa fracassada temos o valor de t e as¬ 
sim por exemplo, no quinto erro o desvio sera para 125 e ao 
se atingir a última "chance" ou seja com t=10 se desviara o 
programa, devido a esta instrução, para a linha 250. 
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Figura 18 


líü l(ü 
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Caso você queira que saia o desenho aí es¬ 
ta uma sugestão de como deve ser o seu programa: 

25 REM *** escora vertical *** 

28 RESTORE 44 
32 READ x, y PLOT x,y 
34 FOR i = 1 TO 5 
36 READ x,y 
38 DRAW x - PEEK 23677, y - PEEK 23678 
40. NEXT i 
42 RETURN 

44 DATA 0,15,126,15,103,15,103,144,112,144,112,15 
Nao esqueça de tirar a instrução RETURN da 

linha 35. 

Encaixe, este trecho e veja como ficou o 
seu programa. Precisa de algum conserto? 

Se voce quiser que o seu programa comece a 
funcionar automaticamente basta acrescentar 

LINE 400 

ã linha 910 ou seja escrever 

910 SAVE "0 jogo da forca" LINE 400 



Você encontrará a instrução LINE impressa 
na tecla vermelha abaixo da 'tecla 3 . 

Agora guarde (SAVE) o seu pr.ograma com um 

GOTO 900. 


Na próxima vez que você carregá-lo (LOAD) 
ele saltará direto para a linha 400 sem esperar pe¬ 
lo set RUN. 

Ê realmente um dever seu completar os ou¬ 
tros desenhos e aí sim se promova, pois você e 
fato um(a) fora de serie... 


de 
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Mostre para os pais, para os(as) amigos 
(as) e principalmente- aos(as) inimigos(as). 

As novas instruções ou as já conhecidas que 
devemos esmiuçar um pouco mais sao: 


AND (linha 500) Uma grande simplificação ocorre no 
programa quando utilizamos os operadores lógi¬ 
cos (Tabela 5). 

Operadores lógicos 

AND (e) -juma relaçao e (AND) outra relação 

0R (ou) -*- uma relaçao ou (0R) outra relação 

NOT (nao) -relaçao nao (NOT) 


Tabela 5 


Assim como " < = " , ">» " e AND, 0R e NOT 

têm teclas próprias não sendo necessário digi¬ 
ta-las caractere por caractere. 


Havendo a possibilidade de utilizar os operado 
res lógicos, em uma única instrução podem ser 
feitas várias comparações ao mesmo tempo. 
Pode-se na mesma instrução ter mais de um opera 
dor lógico e inclusive uma mistura dos mesmos. 

(linhas 725 e 745) 0 conjunto de caracte 

res utilizado pelo TK 90X e em sua grande maio¬ 
ria o mesmo utilizado em outros micros e que se 
chama ASCII (American Standard _Code Information 
Interchange). 

Alem dos caracteres chamados "padrões" tais co¬ 
mo os dígitos, o alfabeto (com maiusculas e mi 
nusculas),símbolos comuns como ($,<> , < - , e tc) 
o conjunto de caracteres do TK 90X, inclue as 
palavras chave (IF, GOTO, READ, etc.) 
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Isto não e tudo, pois dentro dos 256 carac 
teres disponíveis o seu TK 90X possui dois conjun¬ 
tos de caracteres especiais, utilizados amplamente 
nos idiomas português e espanhol (consulte o Capítu 
lo 18 do seu Manual de Operaçao do TK 90X). 

Para maior comodidade do(a) usuãrio(a) o 
TK 90 X dispõe de um Editor de UDG que permite a vo¬ 
cê definir caracteres inéditos (veja os programas 
28,29 e 30 que destacarao a sua genialidade. 

Bem, é a função CHR$, que vem normalmente 
precedida do comando PRTNT, que ê empregada para ob 
ter o caractere correspondente ao numero que lhe 
serve de ar gume p t o . _ 

Teclef PRINT CHR$ 5ô) e veja que o TK 90X 
lhe devolve o número 8. 

Va ao Apêndice D do Manual de Operaçao do 
TK 90X para confirmar isto. 

Por outro lado se você teclar no modo ime¬ 


diato _ 

(pRINT CHR$ 86 J 
o TK 90X lhe mostrara a letra V. 

Execute o seguinte mini -programa para "sen 
tir" todo o Apêndice D. 


5 REM *** A função CHR$ *** 

10 FOR j = 32 TO 255 
20 PRINT "CHR$D"; j; "□=□"; CHR$ j; "DOO’; 
30 NEXT j 




Execute e compare a saída com o que tem no 
Apêndice D do Manual de Operaçao do TK 90X. 

Bateu, nao ê? 



A função CHR$ retorna o caractere corres¬ 
pondente ao cõdigo. 

Deve estar entre 0 e 255. 


Aproveitando a oportunidade vamos falar um 
pouco da função CODE que vai aparecer no programa 
27. 

A função CODE se aplica a uma STRING e re¬ 
torna o código ASCII (veja o Apêndice D do Manual 
de Operaçao do TK 90X) do primeiro caractere da se¬ 
quência alfanumérica. 

Assim por exemplo s'e voce teclar 


PRINT CODE "Victor" 


letra V no cõdigo ASCII. 

A função CODE esta acima da 



Até agora, usamos e abusamos da linguagem 
BASIC porém não é só isto que o seu TK 90X entende. ■ 

Pode-se escrever programas mais excitantes 
ainda e principalmente executados mais rapidamente 
pelo TK 9ÔX se os mesmos forem escritos em lingua¬ 
gem de maquina (do TK 90X). 

Alias esta Õ a linguagem do microprocessa¬ 
dor do TK 90X. 

Como um pequeno exemplo aí vai o programa 
27 no qual voce poderã comparar a velocidade de am¬ 
bos . 

Logo, logo você vera alguns textos de nos 
sa autoria em linguagem de maquina do TK 90X. 

Bem aí vai o programa: 
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PROGRAMA 27 


10 REM *** carregando em hexadecimal *** 

20 CLEAR 31999: LET i = 32000 

30 READ c$: IF C$ = "STOP" THEN STOP 

-— Ã . . -I 

Este e o comando STOP | 

50 LET n = CODE c$ : LET x = 16*({n-48 
AND n > 47 AND n<58) + (n-55 
AND n >64 AND n <71) ) 

60 LET n = CODE c$ (2) : LET x = x + 

(n - 48 AND n>47 AND n <^58) + 

(n - 55 AND n > 64 AND n<.71) 

70 POKEi,x: LET i = i+1 

80 LET C$ = c$(3 TO): IF C$ = ""THEN GOTO 30 
90 GOTO 50' 

100 REM ** dados em linguagem de máquina ** 
110 DATA "01FF00": REM LD BC,255 
120 DATA "3E40" : REM LD A, 40 
130 DATA "D7": REM RST 10 

140 DATA "10 FB": REM DJNZ-5 ^ 0 C 

150 DATA "C9": REM RET # 

160 DATA "STOP" 

500 REM **programa equivalente em BASIC ** 
510 FOR I = 255 to 0 STEP -1 
520 PRINT CHR$ 64; 

530 NEXT I 

1000 REM ** Chamar a linguagem de máquina ** 
1010 PRINT USR 32000 


Para sentir a diferença entre um programa 
em linguagem BASIC e o mesmo em linguagem de maqui¬ 
na escreva RUN 500 e tecle | ENTER - ] . 

Dá para notar a diferença de velocidade? 

Sem duvida!.'.' Haja <p nao! ?! ?! 
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Nao vamos entrar em grandes detalhes no mo 
mento, sobre o programa 27 porem convem "clarear"um 
pouco duas instruções. 


CLEAR (linha- 20)-♦Diz ao TK 90X para reservar al¬ 
gum espaço para a linguagem de máquina. 
Esta instrução esta sobre a tecla X . 

.Com CLEAR apenas, são zeradas as variáveis 


BASIC existentes na memória. 

Casos se tenha o formato CLEAR ramtop , 
ramtop define o maior endereço do BASIC. 


USR (linha 1010)—*-Diz ao TK 90X para executar a ro 
tina em linguagem de maquina começando na 
posição de memória especificada. 

Está acima da tecla L . 

Já, já você vai se maravilhar mais ainda 
com ó seu TK 90X quando utilizar POKE , USR e BIN . 

Não se afobe leia tudo com atençao e se 
for possível duas vezes... 
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0 TK 90X fica ate mais alegre e "esperto" 
quando você consegue conversar com ele na linguagem 
de máquina. Aqui terminou o "oizao" e restam os se¬ 
guintes comentários finais sobre o programa 25. 

LEN (linhas 425 e 460)—►Retorna o numero de carac¬ 
teres existentes na STRING especificada 
entre aspas ou armazenada na variável 
STRING. 

LINE (linha 910)-*-Diz ao TK 90X para começar opro 

grama assim que o mesmo terminar de ser 
carregado. 

(linha 810)—►Restaura os valores contidos 
nas linhas DATA permitindo nova leitura pe 
lo comando READ. 

Quando seguido de um numero de linha (no 
nosso caso tem-se RESTORE 865) inicia a bus 
ca dos dados a partir daquela linha. 



Quando o TK 90X e ligado ele conhece a for 
ma de 111 caracteres. 

Este e o numero total de letras, numeros, 
sinais de pontuaçao e símbolos gráficos impressos 
nas teclas. 

0 TK 90X tem também 21 caracteres que fa¬ 
cilmente podem ser "redesenhados". 

Estas sao copias das 21 primeiras letras 
de forma (de A ate U). . 

Digite'as letras de A ate U em modo gráfi¬ 
co, isto e comece com PRINT "(era modo K e feche 


as aspas em modo L )". 


PRINT "ABCDEFGHIJKLMNOPQRSTU" 


0 resultado será a impressão destas letras 


na forma maiuscula. 
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Pouco interessaria isto se o conjunto obti 
do em GD fosse idêntico ao conseguido por ) CAPS 
SHIFT~j . 

Na realidade estas letras estão sÕ esperan 
do para serem substituidas pelos símbolos gráficos 
que voce criativo(a) leitor(a) vai inventar. 

Mas antes de criar para voce alguns destes 
caracteres, vou 'ensinar-lhe a acessar os caracteres 
especiais já existentes. 

Digite: 

UDG 0 IeNTErI f se obtem UDG com SYMBOL SHIF’ 


ÜDG 0 ENTERj |_ se obtem UDG com SYMBOL SHIFT 
e j tecla X e UDG vem de user 
ciefinable graphics_, isto e, carac 
teres gráficos definidos pelo 
, usuário(a)|. 

^ , i—i 

Repita agora o PRINT', entre no modo G e 
digite cada letra de A-U novamente deixando um es¬ 
paço em branco entre cada uma. 

Esta vez o resultado deve ser 

ÃÊÍÕÜâêíouÃÊâêoaÇç 

Viva, viva, viva o TK 90XlJÍ 

Finalmente vamos poder escrever em Portu 


0 ,I.-y Se você quiser acessar o conjunto de particu 
lares caracteres do espanhol repita o procedimento 
anterior porem escreva UDG 1. 

É muito interessante o resultado final. 

Experimente i i ? .' Í 

Você agora pode escrever corretamente "por 
tuguês" e para tanto faça o seguinte: 

UDG 0 : PRINT "português" 
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e para obter o "e" use a tecla P no modo grafico ou 
seja tecle (<CAPS SHIFT><9>). 

Para conhecer outras novidades tecle ini¬ 
cialmente o programa 28. 


PROGRAMA 28 


10 REM *** Conhecendo U. 

20 PRINT CHR$ 144 > - 

30 FOR j=0 TO 7 / 

40 READ byte / 

50 POKE j +USR CHR$ 144, 
60 NEXT j 
70 PRINT CHR$ 144 
30 DATA BIN 11111111 
90 DATA BIN 10011001 
100 DATA BIN 10011001 
110 DATA BIN 10011001 
120 DATA BIN 11111111 
130 DATA BIN 10011001 
140 DATA BIN 10011001/ 
150 DATA BIN 11111111 


D.G.*** 


Ê aqui que se chama \ 
a instrução UDG. 

Com ela se inserem ca 

) racteres especiais. j 
Como comentamos há 1 
pouco o código que 
vem depois da instru 
çao UDG pode ser 0 
para caracteres em 
Português, 1 para ca¬ 
racteres em Espanhol 
e 2 para o editor UDG/ 


Cada caractere e formado de 64 pixeis. 

Eles compoem uma matriz (veja .o Capítulo 
22 ) ou seja um tabuleiro de xadrez de 8 linhas por 
8 colunas. 

Cada linha de instrução DATA ê constituída 
agora apenas de "uns" e "zeros". 

Dá para você notar o tipo de padrao que os 
"uns" fizeram? 

Ê algo deste tipo 
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Exptioaçgo sobre o programa 28 


Linhas 20 e 70 •—Ambas dizem ao TK 9para desenhar o mes 
mo caractere» CHR$ 144* 


Agora execute o programa. 
Voce viu o que aconteceu? 


Inicialmente a linha 20 imprimiu o caractere 144. 
Depois de ter sido feito o "loop" imprimiu-se de 
novo o caractere 144. 

Porem desta vez não foi mais a letra maiuscula "A" 
( 3 = e sim um quadrado com uma cruz dentro. 

Agora ficou evidente, creio eu, reconhecer este 
desenho (padrão) das linhas de DATA. 



Entrar com CHR$ 144 ê o mesmo que dizer ao 
TK 90X para imprimir "A" (PRINT "A") onde "A" signi 
fica entre em modo gráfico apertand'o a sequência 
CAPS SHIFT , a tecla 9 ,■ a tecla A e finalmen — 
te a i'tecla 9. 

Para cada "1" na linha de DATA, o pixel 


correspondente da matriz 8x8-0 ativado e com esta 
simples explicação voce pode desenhar,a partir de 


agora,os mais sugestivos caracteres como por exem¬ 
plo os que irao aparecer no programa 29 que podemos 
chamar de "Invasores". 



Tecle primeiro todo o programa e guarde na 
fita com o nome "Invasores". 


5 REM *** Invasores *** 

10 GOSUB 800 : REM**Ê nesta subrotina que se defi 
nem os caracteres** 
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20 LET a$ = >. QE3ES01E310E30I 
30 LET b$ =" E3E3QI3E3QISQ 

40 LET c$ » ”□□□ 32 espaços eo branco 

50 LET r$ = "H ” 

60 PAPER 0 : INK 6 : BOEDER 0 : CLS 
70 LET arma = 1 : PRINT AT 21, arma; 
80 LET invasor - 0 
90 GOTO 500 





r$ 


100 REM *** teclas para mexer a sua arma *** 

110 LET m$ = INKEY? 

120 IF m$ = ""THEN SOUND .125,-40+j : GOTO 180 
130 IF m$ = "0" THEN GOSÜB 200 
140 PRINT AT 21, arma; 

150 IF m$ = "8" AND arma <29 THEN LET arma=arma+l 
160 IF m$ = "5" AND arma >0 THEN LET arma=arma-l 
170 PRINT AT 21, arma; r$ 

180 SOUND .004,-30+j 
190 RETURN 

200 REM *** disparar a arma*** 

210 FOR 1 = 20 TO ] STEP-1 

220 IF SCREEN$ (2,arma) = ""THEN GOSUB 300 
230 PRINT AT í, arma; "!" 

250 SOUND .00125,2. 

260 PRINT AT 2, arma; 

270 NEXT í 
280 RETURN 


300 REM***mostrando o invasor atingido*** 


310 BORDER 7 
3 20 LET a$ (arma+i) = 

3 30 LET b$ (arma+1) = 

340 SOUND .25,40 ; SOUND .125,30 
350 LET invasor = invasor+1 
360 buRDER 0 - 

370 PRINT# 1, AT 0,7 ; "QInvasores atingidosQ' ; inva 
sor 


330 RETURN 

500 REM***AÍ vai o laço principal*** 

510 FÒR j=0 TO 20 
520 PRINT AT j,0; a$ 

530 GOSUB 100 

540 PRINT AT j,0; b$ 

550 GOSUB 100 

560 PRINT-AT j,0; c$ 

570 NEXT j 

580 REM**contagem e repetição** 

590 PRINT AT 2,5; "Você acertouG"? invasor; 

"d dos 8 existentes" 

600 PRINT AT 7,3; FLASH 1; "Aperte qualquer tecla 
para brincar de novo" 

610 PAUSE 0 
620 RUN 

800 REM***Ai vão os desenhos dos caracteres grãfi 
cos*** 

810 READ c$: IF C$ = "f" THEN RETURN 
320 REM ** Para cada caractere 8 bytes** 

830 FOR j=0 TO 7 

840 READ byte 

850 POKE j+USR c$,byte 

860 NEXT j 

370 GOTO 810 

880 DATA "a" 

890 DATA BIN 00000000 
.900 DATA BIN 00111100 
910 DATA BIN 01011010 
920 DATA BIN 01111110 
930 DATA BIN 00111100 
940 DATA BIN 00100100 
950 DATA BIN 01000100 
960 DATA BIN 10000100 
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970 DATA "b" 

980 DATA BIN 00000000 
990 DATA BIK 00111100 
1000 DATA BIN 01011010 
1010 DATA BIN 01111110 
1020 DATA BIN 00111100 
1030 DATA BIN 00100100 
1040 DATA BIN 00100010 
1050 DATA BIN 00100001 
1060 DATA "c" 

1070 DATA BIN 00000000 
1030 DATA BIN 00011000 
1090 DATA BIN 00011000 
1100 DATA BIN 00111100 
1110 DATA BIN 00011000 
1120 DATA BIN 00111100 
1130 DATA BIN 11111111 
1140 DATA BIN 11111111 
1150 DATA "f" 

Bem aí- esta todo o programa 29 "Invasores" 

Antes de executa-lo leia algumas explica¬ 
ções . 

Neste jogo voce tem oito invasores e uma 
arma espacial e deve extermina-los 1 ! 

0 símbolo em negrito é para destacar o mo¬ 
do grafico e a letra da tecla e por exemplo [a] . 

Mais uma vez destaco que nas linhas 20 e 30 
devem existir três espaços em branco entre cada ca¬ 
ractere grafico. 

No trecho que vai da linha 20 ate a linha 
90 ajustaram-se os valores para as cores, para as 
variãveis e principalraente atribuiram-se valores as 
variãveis STRING a$, b$, c$ e r$. 
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No trecho que vai da linha 100 ate a linha 
190 tem-se a subrotina que lê o teclado e move a ar 
ma. 

No trecho que vai da linha 200 ate a linha 
280 tem-se a subrotina que verifica se o míssil es¬ 
ta na eminência de bater em algo. 

SCREEN$ nao pode reconhecer um UDG ou seja 
um caractere criado por você estimado(a) usuario(a). 

Quando encontra um UDG ela (a instrução 
SCREEN$) fetorna uma STRING vazia e ê nisto que se 
baseia o teste; ver. quando e que se encontra o "na¬ 
da" . . . 

Esta subrotina desloca também o projétil 
(veja a linha 230). 

No trecho que vai da linha 300 ate a linha 
380 tem-se a. subrotina que ê chamada quando um inva 
sor e atingido. ' 

As linhas 320 e 330 sao para apagar o inva 
sor subs.tituindo o seu caractere em a$ e b$ com úm 
espaço em branco. 

Esta rotina acompanha também a evolução da 
eliminação dos invasores e imprime-se a contagem na 
tela no espaço reservado a comunicação com o TK 90X 
("espaço de trabalho"). 

Tenha muito cuidado quando utilizar este 
espaço da tela, esteja seguro que isto não provoca¬ 
ra o rolamento (scroll) da tela ou alguma coisa Im¬ 
par ocorra. 

No trecho que ê composto pelas linhas de 
500 a 570 tem-se o "loop" que faz.os invasores se 
movimentarem e onde se chama a subrotina que permi¬ 
te a sua arma se deslocar na tela, Não esqueça que 
com a tecla 5 voce vai para a esquerda e com a 
tecla 8 vai para a direita. 
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0 trecho que vai da linha 580 a 620 lhemos 
tra a contagem final e permite que se comece tudo 
de novo caso esta for a sua vontade senhor(a) do- 
no (a) do TK 90X. 

É na subrotina que começa em 800, que es¬ 
tão os caracteres especiais criados com o auxilio 
da notação binaria (BIN), colocados na memória do 
TK 90X com o auxílio da instrução POKE e achados pe 
lo TK 90X, quando solicitado, com a instrução USR. 

Ressaltando, não esqueça pois que o conteú 
do de cada tecla (de A ate U) pode ser trocado por 
você pois aí tem-se os caracteres UDG ("user.defina 
ble graphics")'. 

Toda vez entretanto, que o TK 90X for liga 
do o conteúdo padrao aparecera. 

Se você quiser uma retrospectiva, vera que 
no "vermelho" UDG obtem-se o conteído das teclas A 
ate U em modo G, quando- se digita: 



Não confunda com os caracteres que obteve 
com UDG 0 (ou com UDG 1). 

st 


Mais uma vez para entrar no modo grafico a 


sequencia e: 


CAPS SHIFT e tecla 9 




0 .Izao 


No livro dos meus filhos Sérgio e Victor 


você poderá sentir toda a importância da existência 


dos caracteres UDG. 


0 

fi 


iome do livro eu quase ia esquecendo... 
'Jogos e Desenhos no TK 90X" vçlL^_Li 


18.7 


Porem, depois deste comercial não posso fi 
car em um único exemplo e é por isto que existe o 
programa 30. 

V 

IPROGRAMA 30 "A caça ao submarino" J 

Você vai participar de ura jôgo eletrônico 
que usa UDG. 

Neste programa você aprendera como se pode 
criar figuras ou formas grandes compostas de vários 
pequenos UDG ou seja caracteres criadas por VOCÊ 
PR0PRIO(A). 

No programa 30 os caracteres A,B e C são 
modificados para no conjunto representarem um des¬ 
tróier e é nas teclas D, E e F que se cria um sub¬ 
marino. 

Como no programa 29 voce tem que colocar o 
TK 90X no modo gráfico e aí apertar a tecla requeri 
da . 

Bem aí, vai todo o programa "A caça ao sub 


5 REM *** A caça ao submarino *** 

i0 let 


20 FOR j = 0 TO 2 

30 PRINT INK 1; PAPER 5; 2$ 

40 NEXT j 

50 FOR j-3 TO 20 

60 PRINT INK 1; PAPER 4; 2$ 

70 NEXT j 

80 PRINT PAPER 6; 

90 BORDER 4 : PAPER 8 

100 GOSUB 1000 

110 LET d$ = 'OQ 0 Bü" 


tecle 32 espaços em branco 
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120 LET S$ = "DE H HO" 

130 LET dest = 13 

140 LET suby = INT(RND*16)+4 

150 PRINT AT 2, dest; d$ 

160 GOTO 500 

170 REM***Lançamento de carga de profundiddde*** 
180 FOR h = 3 TO 20 

190 IF subx >0 THEN PRINT AT suby, subx; s$ 

200 IF subx = 0 THEN PRINT AT suby,0; ”□□□□□" 
210 IF SCREEN$ (h,dest+5) = "" THEN GOTO 310 
220 PRINT AT h, dest+5; "O" 

230 LET subx = subx-1 

240'SOUND .05,-30 

250 PRINT AT h,dest+5; " □ " 

260 NEXT h 
300 RETURN 

310 REM***Acertando o submarino*** 

320 FOR z=l TO 13 

330 PRINT AT h,dest+5; "HJ” 

340 BORDER 0 

350 SOUND .005,RND*(-25) 

360 PRINT AT h,dest+5; "60" 

370 BORDER 7 

380 SOUND .004, RNDM-25) 

390 NEXT z 
400 BORDER 4 

410 PRINT AT suby, subx; "□□□□□" 

420 GOTO 140 

500 REM ***Este é o loop principal*** 

510 LET subx = 28 

520 IF subx>0 THEN PRINT AT suby,subx; s$ 

530 LET subx = subx-I 
540 LET m$ = INKEY$ 


550 SOUND .1,-20 

560 IF m$ = "0” THEN GOSUB 170 - 

570 IF m$ = "5" AND dest >1 THEN LET dest = dest-1 
580 IF m$ =,"8" AND dest< 24 THEN LET dest=dest+l/ 
590 PRINT AT 2, dest; d$ 

600 IF subx > =0 THEN GOTO 520 
610 PRINT AT suby,0; "□□□□ 

620 GOTO 140 

1000 REM***Definindo os caracteres***" 

1010 READ c$ : IF c$ = "u" THEN RETURN 
1020 FOR b=0 TO 7 
1030 READ byte 
1040 POKE b+USR c$, byte 
1050 NEXT b 
1060 GOTO 1010 
1070 DATA "a" 

1080 DATA BIN 00000000 
1090 DATA BIN 00000001 
1100 DATA BIN 00000001 
1110 DATA BIN 01111001 
1120 DATA BIN 00011001 
1130 DATA BIN 11111111 
1140 DATA BIN 01111011 
1150 DATA BIN 00111111 
1160 DATA "b" 

1170 DATA BIN 10000000 
1180 DATA BIN 10011011 
1190 DATA BIN 10011011 
1200 DATA BIN 10011011 
1210 DATA BIN 11111111 
1220 DATA BIN 11111111 
1230 DATA BIN 01110111 
1240 DATA BIN 11111111 


Com a tecla 8 
movimenta-se 
o destróier 
para a direita 


Com a tecla 5 mo¬ 
vimenta-se o des¬ 
tróier p a a es¬ 
querda 


Lança-se a carga 
ao pressionar a 
tecla 0 
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1250 

DATA 

"c” 


1260 

DATA 

BIN 

00000000 

1270 

DATA 

BIN 0^000000 

1280 

DATA 

BIN 

00000000 

1290 

DATA 

BIN 

00111100 

1300 

DATA 

BIN 

00110000 

1310 

DATA 

BIN 

11111111 

1320 

DATA 

BIN 

01110111 

1330 

DATA 

BIN 

11111110 

1340 

DATA 

"d" 


1350 

DATA 

BIN 

00000000 

1360 

DATA 

BIN 

00000000 

1370 

DATA 

BIN 

00000000 

1330 

DATA 

BIN 

00000000 

1390 

DATA 

BIN 

00000000 

1400 

DATA 

BIN 

01111111 

1410 

DATA 

BIN 

11111111 

1420 

DATA 

BIN 

01111111 

1430 

DATA 

"e" 


1440 

DATA 

BIN 

01100000 

1450 

DATA 

BIN 

00100000 

1460 

DATA 

BIN 

01111000 

1470 

DATA 

BIN 

01111000 

1480 

DATA 

BIN 

011.11000 

1490 

DATA 

BIN' 

■ 11111111 

1500 

DATA 

BIN 

11111111 

1510 

DATA 

BIN 

11111111 

1520 

DATA 

Hf" 


1530 

DATA 

BIN 

00000000 

1540 

DATA 

BÍN 

00000000 

1550 

DATA 

BIN 

00000000 

1560 

DATA 

BIN 

00000000 

1570 

DATA 

BIN 

00000000 



crr-i 



1580 DATA BIN 11111101 
1590 DATA BIN 11111111 
1600 DATA BIN 11111101 
1510 DATA "u" 



Antes de brincar com o programa leia as se 
guintes explicações: 

Em primeiro lugar, mais uma vez e agora a 
últimi, para conseguir os caracteres A,B,C,D,E e F 
(linbas 110 e 120) nao esqueça de colocar o TK 90X 
no modo gráfico ( |CAP S SHIFT| e tecla 9 apertadas si¬ 
multaneamente). 

No trecho que vai da linha 5 até a linha 
160 está a rotina para o ajuste inicial da tela. 

0 topo da tela simula o céu, depois vem o 
mar e em seguida ou melhor em baixo um pouco de 
areia... 

Note que na linha 90 ao PAPER se deu o va¬ 


lor 8. 
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Isto nao e um a cor!. 1 ! 

PAPER 8 e transparente como o vidro!!! 

Isto permite que se veja o fundo... 

Pm qualquer impressão posterior se usara a 
cor para o PAPER que já foi aj'ustada para aquela 
parte da tela. 

Ê na linha 100 que se chama a rotina na 
qual se definiram os caracteres que serão atribui- 
dos a d$ (linha 110) e s$ (tinha 120) ou seja cfian 
do respectivamente o destróier e o submarino. 

A variável "des t” guarda a posição do des¬ 
tróier, enquanto que a variável "suby" indica a pro 
fundidade do submarino. 

No trecho que vai da linha 170 a 300 está 
a subrotina que ê chamada por você caro(a) possui- 
dor(a) deste livro e do TK 90X quando pressionar a 
tecla 0 . 

Ela manipula o movimento do submarino na 
tela e o movimento para baixo da carga de profundi¬ 
dade. 

Na linha 210 verifica-se se alguma coisa 
foi atingida. 

Se isto ocorrer desvia-se para a linha 310. 

No trecho que vai da linha 310 ate a linha 
420 o bordo pisca e simula-se uma explosão. 

Finalmente faz-se o bordo voltar a cor ori 
ginal, apaga-se o naufrágio (destruição) e vii-se 
para uma próxima divçrsao de afundamento". 

'No trecho do programa da linha 500 ate è.620 
está o "loop" principal que entre outras coisas per 
mite movimentar o destróier, disparar a carga e mo¬ 
vimentar o submarino. 


Finalmente no trecho da linha 1000 ' atê a' 
1610 esta a definição dos caracteres que constituem' 
o destróier (guardados nas letras A, B e C) e o 
submarino (definidos nas letras D,E e F). 

Sai-se automaticamente desta subrotina 
quando for lido para c$ o valor "u" de ultimo. 

Para que o TK 90X pudesse entender estes 
dois últimos programas (29 e 30) foram utilizadas 
as. seguintes novas e muito importantes instruções: 


BIN 


Diz ao TK 90X que o numero que a segue. e 
um numero binário 
Ela está sobre a 
Com esta instrução ura numero em binário ê 
convertido para decimal. 

Caso o numero seja maior que 65535iocorre¬ 
rá um erro de sintaxe. 


(BINary) 
I tecla B 


Se por exemplo.'voce escrever 
PRINI BIN 10111 


o TK 90X lhe retorna o numero 23, 

Como cada dado e composto de 8 bits ou se¬ 
ja por um byte, para se representar um ca¬ 
racter, por exemplo o da Figura 19 , teria 
mos que "traduzir" a sua forma em bits. 

0 TK 90X usa a linguagem binaria e so en¬ 
tende os numeros 0 e 1. 

Um caractere pode ser definido em uma ma¬ 
triz 8x8 (falaremos bastante de matrizes 
no Capitulo 22) e portanto para que o TK 
90X entenda o caractere da Figura 19 deve- 
se apresentar a ele os seguintes sequen¬ 
ciais de zeros (0) e uns (1). 





Linha 
0 - 


Figura 19 

1000000 0 
01000000 
00 100000 
00011000 
00011111 
0001.1 000 
00100000 
11000000 


Como você ve, ê bem fãcil criar um caracte¬ 
re especial basta ter um pedaço de papel 
quadriculado e utilizar quadriculados 8x8. 

Alias, como auxílio para que não perca 
tempo na localizaçao dos seus desenhos na 
Figura 20 você tem a tela do seu TK 90X 
quando estiver trabalhando com a instrução 
PRINT AT. 

Tire quantas copias quiser da mesma e ga¬ 
nhe tempo na localizaçao dos seus "enge¬ 
nhos" no momento que se investir com o tí¬ 
tulo e adotar o trabalho 4 e programador(pro 
gr amadora). 

Nesta altura dos acontecimentos jã da para 
programar alguma coisa, não ê? 



Figura 20 - Representação grafica da 
tela de vídeo usado pelo 
TK 90X 
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PRINT 1 J -a»Di z ao TK 90X para imprimir no "espaço 
de trabalho". 


POKE 


Diz ao TK 90X para armazenar um inteiro 
entre 0 e 255 em uma específica posição 
da 'memória. 

A instrução POKE esta na 
A forma geral da instrução POKE e 


tecla 0 


POKE endereço da memória, valor 



onde "endereço da memória" pode ser qual 
quer valor inteiro de 0 a 65535 e "va¬ 
lor" pode ser qualquer numero inteiro 
de 0 a 2 55 . 

Caso se apresente algum valor fora des¬ 
ta faixa ira aparecer erro do tipo B. 

Assim por exemplo POKE 42384,37 indica 
a introdução do valor 20 (em decimal)no 
endereço de memória 22384 (em decimal). 


Diz ao TK 90X para achar a posição de 
me.mSria ou endereço para um específico 
caractere grafico definido pelo(a) usua 
rio(a). 

Esta na 


tecla L 


De uma forma geral com a instrução 


USR endereço de memória executa-se uma 
subrotiqa em linguagem de máquina que 
se inicia no endereço especificado. 


Será que agora voce entende um pouco me 
lhor o que se obtem com a instrução da 
linha 1040 do programa 30? 


Acho que sim, porém como auxílio note 
que b+USR c$ a cada volta no "loop" 
permite que se tenha um novo endereço 
de memória e a cada volta guarda-se aí 
um valor da variável byte. 

Como sao 8 voltas tudo é guardado em um 
caractere ou seja aquele atribuído a 
c$. 



TK9QX,o micro 
cheio de programas. 











Capítulo 22 
Matrizes 


Def inição 

Matriz ê um donjunto de variaveis com o 
mesmo nome. 

Cada elemento de uma matriz e identificado 
por um ou mais índices numéricos (de uma forma úni¬ 
ca) e que aparecem entre parênteses seguindo o nome 
da matriz. 

Em outras palavras quando •possuimos uma s 
rie,de dados inter-relacionados de alguma forma en¬ 
tre si podemos guarda-los em uma única variável que 
costuma-se chamar de MATRIZ. 

Um exemplo de um elemento de uma matriz 
unidimensional e 



a(13) = 640 

^ A x 

nome da índice que 
matriz identifica ura 


elemento da 
matriz 



elemento da 
matriz 


Uma matriz pode conter dados numéricos ou 
alfanuméricos (STRINGs). 

Quando os elementos de uma matriz sao da¬ 
dos STRINGs, o nome da mesma deve ser seguido pelo 
símbolo "$"• 


KT>\ 
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Costuma-se chamar os elementos de uma ma¬ 
triz ("array" em inglês) de variáveis subscritas ou 
indexadas. 

Antes de podermos usar qualquer matriz de¬ 
vemos reservar espaço para ela na memória do seu 
TK 90X. 

Ê para esta finalidade que existe a ins¬ 
trução DIM (de dim ensionamento) 

Suponha que você queira montar uma matriz 
contendo a "coleção" de variáveis a^a^ a 3 * a 4 > a 5 > 
a 6 e a ? . 

Neste caso em primeiro lugar você deve in¬ 
formar ao TK 9$X quantos elementos comporão a ma¬ 
triz a ( ) . 

Isto é feito através da instrução DIM ou 
seja escrevendo logo no início do orcgrama 



Figura 21 - Quarto elemento da matriz 

a( ) que tem sete elementos 

De uma forma geral para varia,°.is numéri¬ 
cas ou STRINGs es creve-se; 

! r>TM nome (dimensão) 
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com.a qual permite-se reservar na memória do TK 9$X 
área para matriz numérica óu STRING, unidimensional 
ou muitidimensional* 

Uma variável STRING deve ser dimensionada 
em n ^ merJ ( x ) e em comprimento (y). 

Desta forma quando se escreve 

DIM n$(4,15 ) 

esta se dimensionando uma matriz para 4 STRINGs * de 
comprimento máximo igual a 15 caracteres. 

Poderiam ser elementos desta matriz, os se 

guintes 

n$(l)-MIRSHAWKA (9 caracteres específicos e 

os outros sao espaços em 
branco) 

n$ (2 )-—*\ SÉRGIO 
n$ ( 3 ) -—«» VICTOR 
n$(4)-—ALEXANDRE 

De uma forma geral quando se dimensiona 
uma matriz STRIN.G escreve-se 



DIM n$(x,y) 


® corresponde ao nííme © corresponde a quan- 
ro de elementos que tidade de caracteres 

serão introduzidos na para cada elemento da 

matriz matriz 


Quando para um .dado elemento o numero de 
caracteres e superior a y eles são. ignorados e os 
elementos da matriz n$( ) tem as suas posições pre¬ 
enchidas da esquerda para a direita e caso haja foi 
ga, as restantes posições são automaticamente preen 
chidas com espaços em branco. 

As variáveis subscritas facilitam e dão 
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grande versatilidade â programaçao em BASIC para o 
seu TK 90 X. 

Uma das mais importantes aplicações das va 
riãveis subscritas é na armazenagem de Lista de nú¬ 
meros e/ou STRINGs através das instruções READ-DATA 
ou INPUT. 

A variável de controle pode também ser uti 
lizada como variavel para o subscrito em uma variá¬ 
vel indexada, fazendo com que cresça em uma unida¬ 
de, cada vez que o "loop" for lido. 

Veja o programa 13 do Capítulo 23. 

Matrizes numéricas bidimensionais , tridimensionais 3 
etc . 

0 seu TK 90X alem de aceitar "linhas de va 
riãveis" (veja a Figura 21) pode também aceitar varia 
veis organizadas em tabelas feitas de linhas e colu 
nas . 

Assim por exemplo 

DIM a(10,10 ) 

— . - - - 

define uma coleção de variãveis organizadas em 10 
linhas e 10 colunas. 

É comum referir-se a um elemento desta ma¬ 
triz ou tabela como a(i,j) onde o primeiro índice 
(i) indica a linha e o segundo índice (j) indica a 
c o 1 una. 

É evidente que com DIM a(10,10) reservamos 
na memória do TK 90X espaço para 10x10 = 100 variá¬ 
veis nume ricas. 

A idéia de uma matriz bidimensional pode 
ser expandida para matrizes a três, quatro,... ate 
2 55 dimens oes. 


No- momento não ha nenhuma vantagem em "di¬ 
vagar” sobre o que representariam variãveis com tan 
tos índices. 

Aceite entretanto, credulo(a) leitor(léito 
ra) que elas tem muito uso... 

Sõ como ilustração, nesta linha de racio¬ 
cínio se voce escrever por exemplo 

DIM a(10,15,8) 

estará reservado na memória do TK 90X espaço para 
10x15x8 = 1200- variãveis numéricas 
sendo que um elemento típico poderia ser a(3,7,6). 

Aí já surge um indício do porque matrizes 
com muitas dimensões não sao muito usadas - voce po 
de acabar c.om a memória do .seu TK 90X rapidamente. 

Veja nos programas 14 e 15 do Capítulo 23 
a aplicação da instrução DIM e das matrizes. 

Muy amigo(a) acho que quem chegou aqui vai 
entender tudo o que resta ou seja- o Capítulo 23. 

Porém não esqueça que existem outros li¬ 
vros de nossa autoria e dos meus filhos Sérgio e 
Victor tios quais aparecem programas basÇante origi¬ 
nais e que lhe darão a condição de completar o seu 
conhecimento e o pleno domínio do TK 90X. 

Por enquanto ja "existem" 

"Jogos e Desenhos no TK 90X"-vol.l 
"Gráficos no TK 90X” 

e vem muito mais aí pela frente... 






1&9S3|] 


J^Aqui se manda imprimir a 
mensagqra e o valor da j 


... 

2) Elabore um programa que some os dois primeiros numeros 
que entram, divide os mesmos por dois, a seguir soma o re¬ 
sultado com um terceiro número multiplicado por dois e di 
vide esta última soma por 3 apresentando na tela o resul¬ 
tado final. 

Solução ; 

Na realidade queremos obter o valor de M obtido da fórmula 
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M = 


A+B 


+ 2xC 


3 


10 INPUT "Entre com o primeiro númeroQ";A 
20 INPUT "Entre com o segundo númeroQ";B 
30 INPUT "Entre com o terceiro númeroQ";C 
40 LET M = <(A+B)/2 + 2*C)/3 
50 PRINT "0 resultado final é:[]";M 


3) Elaborar um programa que lhe pergunte neste ordem 

'a) o seu nome; 

b) o seu sobrenome; 

c) o seu telefone; 

d) o seu endereço; 

e) a sua profissão; 

f) a .sua idade. 

Deve sair impressa a sua "ficha" completa. 
Solução : 


10 INPUT "Entre cbm o seu nomeC!]"; n$ 

20 INPUT "Entre com o seu sobrenomeO"; s$ 
30 INPUT "Entre com o seu telefoneQ"; t$ 


40 INPUT "Entre com o seu endereçoD"; e$ 


50 INPUT "Entre com a sua profissãoQ"; p$ 


60 INPUT "Entre com a sua idade D"; I 
70 PRINT "0 meu nome e[] M ;ní; s$ —i 

80 PRINT "Meu telefone e:Q"; t$ 

90 PRINT "Moro naD"; e$ 

100 PRINT "A minha profissão e:Q"; p$ 

110 PRINT "Atualmente tenhoü";!; "Danos 


Mqui .sai impres 
so o nome e o 
sobrenome 


II 


Na linha 30 terarse uma variãvel STRING "t$" 
de que a entrada seja um número. 

0 seu TK 90X guardara o número telefônico como uma cadeia 
de caracteres incluindo os espaços em branco. 


GD 


apesar 


4) Aí vai um programa que permite imprimir o dia da semana 
entrando-se com um número de 1 a 7. 

Solução : 

10 INPUT "Entre com dia da semana como um número de 1 a 7"; 
d 

20 CLS: PRINT "DiaD";d; "DiD"; 

30 GOTO 10*d+40 
40 GOTO 10 

50 PRINT "segunda-feira": GOTO 10 
60 PRINT "terça-feira" : GOTO 10 
70 PRINT "quarta-feira" : GOTO 10 
80 PRINT "quinta-feira" : GOTO 10 
90 PRINT "sexta-feira" : GOTO 10 
100 PRINT "sábado" : GOTO 10 
110 PRINT "domingo" : GOTO 10 

Como se ve neste programa o número após o GOTO e substituí 
do por uma expressão numérica. 

Isto é muito útil quando se quer introduzir um ele 
mento de escolha ou opção para o salto. 

Assim devido a linha 30 o desvio sera para a li¬ 
nha 50 se voce entrar com o número "1", para a linha 60 se 
você entrar com o número "2"... para a linha 110 se você 
entrar com o número "7". 

Neste programa se você entrar com o "0" então devi 
do a instrução da linha 30 voce irá para a linha 40 que o 
devolverá para a linha 10 e aí começa tudo de novo. 

Caso o seu engano seja maior e voce entre com um 
número maior que 7 então devido a instrução da linha 30 de 
de-se desviar para um número de linha maior do que os que 
existem no programa. 

Felizmente T o TK 90X tem um BASIC bastante tole¬ 
rante para tais tipos de erros e se você mandou que ele 
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saltasse para um numero de linha que nao existe então ele 
pula para a linha mais próxima com numeração maior ou se 
nao existe nenhuma então o programa simplesmente pára. 


Usaremos muito os dois pontos (:) que apareceram pe 
la primeira vez, desde que você esteja respeitando a se¬ 
quência indicada no livro... 



0 uso dos dois pontos (:) nos permite ter o . que 
se chama linha com instruções múltiplas. 


Neste caso as linhas 50, 60, 70, 80, 90, 100 e 110 
todas tem duas instruções cada uma. 


5) Elaborar um programa que permita exibir uma tabela de con¬ 
versão de numeros binários de 8 bits nos seus equivalentes 
decimais. 

Caso você tenha a possibilidade de conectar o seu 
TK 90X com uma impressora (uma boa opção seria ter uma 
GRAFIX...) isto lhe permitirá ter uma tabela que lhe pode 
ser muito util no futuro, entretanto não esqueça de mudar 
o PRINT para LPRINT. 

Deve-se usar obrigatoriamente neste programa um 
super aninhamento ou seja 8 "loops" F0R-T0/NEXT. 



10 FOR a = 0 TO 1 
20 FOR b = 0 TO 1 
30 FOR c « 0 TO 1 
40 FOR d = 0 TO 1 
50 FOR e - 0 TO 1 
60 FOR f - 0 TO 1 
70 FOR g - 0 TO 1 
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80 FOR h = 0 TO 1 

90 PRINT a*128 + b*64 + c*32 + d*l6 + e*3 + f*4 + g*2 + h; 

TAB 5; a;b;c;d;e;f;g;h 

100 NEXT h 
110 NEXT g 
120 NEXT f 
130 NEXT e 
140 NEXT d 
150 NEXT c 
160 NEXT b 
170 NEXT a 

Execute e veja se sai algo do seguinte tipo: 






33333333 
•33330301 
03000010 
300000 Ü 
30003103 
30000101 
OOOOOliO 
00300111 
00001300 

ooooiooi 

ooooioio 

ooooion 

oooouoo 

IBOOOII**' 
%•»»»— • 

±1111003 

llillOOl 

1111131 $ 

11111311 

11111133 

11111131 


11111113 

11111111 


6) Usando três "loops" vou elaborar um programa que permite 
ver uma linda sequência de "padrões" coloridos que vão au¬ 
mentando com o passar do tempo em complexidade e que lhe 
trará dedicado(a) leitor(leitora) uma distração durante 
uns 10 minutos,. 

10 FOR c = 50 TO 1 STEP-1 
20 FOR a a 0 TO 11 
30 FOR b » a TO 19 
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40 LET d = INT(a*b/c+(a+b)/c+c) : PAPER d-9*INT(d/9) 

50 PRINT AT a,b; AT a,31-b; AT 21-a,b; 

AT 21-a, 31-b; 

60 PRINT AT b,a; "D"; AT b,31-a; AT 21-b,a; "D"; 

AT 21-b,31-a; 

70 NEXT b 
80 NEXT a 
90 NEXT c 


Execute e sinta-se um (a)■verdadeiro(a) artista. 
Pode ate exclamar exótico, marcante, criativo!J' 


0.I.-J1) PAPER código de cor (linha 40) define a cor (de 


0 a 7) do fundo da tela. 

2) INT e uma função que retorna a parte inteira 
ura numero fracionário. 


de 


3) PRINT AT y,x desloca a posição de impressão para 
uma generica coluna x e uma genérica linha y sendo 
0-í x-í 31 e 0íy^2. 


7) Embora este programa nao seja muito longo ele lhe dara co¬ 
mo resultado um jogo bem excitante. 

0 quadrado a esquerda (Figura 22 ) tem uma letra 
dentro do mesmo. 

Quando ele se desloca para o outro lado da tela vo 
ce precisa tentar parar o mesmo na região indicada pela 
mesma letra. 

No início do jogo o TK 90X lhe pergunta em que ní¬ 
vel de dificuldade (quanto mais rápido tanto mais difí- 

'-cil...) voce quer participar do jogo e a sua escolha podf 
ser: 

1 —►bem fãcil (lento) 

4 2—►difícil (rãpido) 

3 —►muito difícil (muito rápido) 


Colocou-se um sistema de contagem e no final aparece 0 nu¬ 
mero total de acertos. 

10 REM *** Pare-o no lugar certo *** 

15 BORDER 5 : PAPER 7 : INK 2 

20 LET s$ = "abcdD" : LET t = 0 : LET a = 0 

30 INPUT "Com nível de dificuldade (1-3) : ";di:LET d= 

10 - 3*di 

40 INPUT "Quantas tentativas voce farã?D" ; n 
50 FOR s ■ 1 TO 5 

60 FOR í = 0 TO 15 : PRINT AT £,14+3*s; PAPER 0; 

: NEXT l 

70 PRINT AT 0,15+3*s; s$(s) : NEXT s 
80 LET r = INT (RND*4+1) : LET A$ - s$(r) 

90 LET t * t+1 : LET t = 2 + 2*INT(RND*7) : LET c = 0 
100 PRINT AT A,c; £$ : FOR J - 1 TO d : NEXT J 

110 LET c = c+1 : IF c <31 AND INK£Y$~."" THEN GOTO 100 
120 IF INT((c-15)/3)< > r 0R c = 17+3*r THEN GOTO 140 
130 SOUND .1,11 : LET a=a+l : GOTO 150 
140 SOUND .1,0 : LET r$ = INKEY$ 

150 PRINT AT 20,0; "a contagem 6:0"; a; "Qaçertos emO"; 

t; "CUtentativas" 

160 IF t < n THEN GOTO 80 

Execute e boa sorte. 

Tenha muito bom senso, lógica e velocidade no dedo. 

Note que: 

1) bom senso é a lógica natural ou seja aptidao inata da 
inteligência para descobrir a verdade. 

2) lógica e a ciência que estuda as leis do pensamento e 
a arte de aplicã-las corretamente na investigação e na 
demonstração da verdade. 
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3) dedo você tem, não e? 

0 bom senso e a lógica voce irã aplicar para que a 
letra pare na zona certa como esta indicado na Figura 22. 



8) Vamos mostrai neste programa a potencialidade do seu TK 
9^X para produção de figuras. 

Consulte o nosso livro "Gráficos no TK 90X" para 
maiores detalhes sobre este tema. 

a) Obtém-se uma serie de circunferências '.ue no conjunto 
dao a impressão de se ter um cone 



10 BORDER RND*6+1: PAPER RND*6+1: INK 0 : CLS 


20 LET y = 1 : LET r = 1 
30 FOR x - 1 TO 180 5TEP 5 
40 CIRCLE x,y,r 
50 LET y = y+2 : LET r = r+2 
60 NEXT x 



Execute e veja se sai algo deste tipo 



b) Neste programa desenham-se linhas retas de tal 
que elas acabam formando uma curva. 

Ê voce caro(a) usuãrio(a) que deve indicar . 
da tinta e o espaçamento entre as retas. 

10 INPUT "Entre com a cor da tinta ?"; c 
20 BORDER 7 : PAPER 7 : INK c : CLS 
30 INPUT "Entre com um numero de 1 até 25 "; e 
40 LET a = 0 

50 PLOT 0,175 : DRAW 0, -175 
60 PLOT 0,0 : DRAW 175,0 
70 FOR j = 175 TO 0 STEP-e 
80 PLOT 0,j : DRAW a,-j 
90 LET a = a+e 
100 NEXT j 


Execute e veja se sai algo deste tipo: 


forma 


cor 
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Figura 24 


9) Elaborarei agora uma serie de pequenos programas para des 
tacar a influencia e o uso conjunto do PLOT e do DRAW per 
mitindo obter figuras de contorno fechado como por exem¬ 
plo um quadrado ou uma simulação dos raios solares. 

a) 10 REM *** 0 nascer dp Sol *** 

20 BORDER 5 : PAPER 1 : INK 6 
30 FOR j = 1 TO 100 
40 PLOT 127,87 : DRAW 100*RND, 70*RND 
50 PLOT 127,87 : DRAW -100*RND, 70*RND 
60 PLOT 127,87 : DRAW -100*RND, -70*RND 
70 PLOT 127,37 : DRAW 100*RND, -70*RND 
80 NEXT j 

90 PRINT INK 2; FLASH 1; AT 21,3; "Que lindo Sol!!!" 
100 FOR z = 1 TO 499 : NEXT z : CLS : GOTO 30 

Execute e veja se sai algo parecido com o que esta in¬ 
dicado na Figura 25. 
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Figura 25 

b) 10 REM *** Vendo um Sol duplo *** 

20 BORDER 1 : PAPER 6 : INK 2 

30 FOR k=l TO 3 STEP 2 
40 FOR j-1 TO 30 

50 PLOT 60*k, 87 : DRAW 55*RND, 75*RND 
60 PLOT 60*k, 87: DRAW -55*RND, 75*RND 
70 PLOT 60*k, 87 : DRAW -55*RND, -75*RND 
80 PLOT 60*k, 87 : DRAW 55*RND, -75*RND 
90 NEXT j 
100 NEXT k 
110 PAUSE 100 

120 PRINT INK 3; FLASH 1; AT 21,4; "Mais do que um 
Sol?!?.’?.’?" 

130 PAUSE 100 
140 CLS: GOTO 30 

Execute e admire dois "astros-rei" ao mesmo tempo. 

c) 10 REM *** desenhando um quadrado *** 

15 LET c = 0 

20 BORDER 0 : PAPER 1 : INK c 
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30 PRINT INK 2; FLASH 1; AT 21,5; "Um quadrado 
isolado" 

40 PLOT 50,50 : DRAW 50,0 : DRAW 0,50 : DRAW -50,0 : 
DRAW 0,-50 

50 PRINT INK 3; FLASH 1; AT 3,7; "Voce quer ver um 
quadrado de outra cor? (S/N)D INPUT r$: 

IF r$ = "n" OR r$ ■ "N” THEN GOTO 90 
60 PRINT INK 3; FLASH 1; AT 5,7; "Entre com o codigo 
de 2 a 7"; 

70 INPUT c 
80 GOTO 20 
90 STOP 


d) 10 REM *** coleção de quadrados *** 

20 BORDER 0: PAPER 7: INK 1 
30 FOR j - 10 TO 80 STEP 10 
40 PLOT j,j 2 DRAW j,02 DRAW 0,jí DRAW -j,0: 
DRAW 0 ,~j 


50 NEXT j 

60 PRINT INK 2; FLASH 1, AT 0,0; "Que linda coleção 


de quadrados" 

70 FOR p = 1 TO 399 : NEXT p : CLS 
80 GOTO 30 


Gostou destes mini-programas? 

Sem duvida que sim,- pois o mistério das instruções 
PLOT e DRAW se desfaz diante de tanta simplicidade.• 



10) Agora realmente você admirara o seu TK 90X que em um mi¬ 
núsculo programa lhe mostrara um interessantíssimo dese¬ 
nho. 

5 BORDER 0 : PAPER 7 : INK RND*6 + 1 

10 FOR j = 0 TO 1.7*PI STEP Pl/3 

20 LET x = 127: LET y = 88 : LET r = 100 


30 FOR k - j TO j + 1 STEP .1 
40 PLOT x,y : DRAW r*COS k, r*SIN k 

50 DRAW r*SIN(Pl/6-k) - r*COS k, r*C0S(Pl/6-k)-r*SIN k 
60 DRAW - r*SIN(Pl/6-k), -r*C0S(Pl/6-k) 

70 LET x = x+.l*r*C0S k: LET y=y+.l*r*SIN k : LET r=.85*r 
80 NEXT k 
90 NEXT j 


Execute e veja se sai algo como isto; 




11) Com este programa iremos obter os caracteres escritos em 
tamanho bem grande e depois com pequenas modificações fa¬ 
remos aparecer um texto com caracteres bem grandes. 
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1 REM * escrevendo em tamanho maior*** » 

5 PAPER 6 : XNK 1 : BORDER 1 

10 INPUT "Escolha o seu caracterD"; c$ 

20 IF LEN c$ >1 THEN GOTO 10 

25 LET ei = PEEK 23606 + 256 *PEEK 23607 + 256 

35 LET ec = ei + 8 * (CODE c$ - 32'V"" " ' “ 

/ Veja o que significa 
45 FOR j = 0 TO 7 a instrução CODE no 

50 LET f = PEEK (ec + j) programa 27 do capí- 

\ tulo 21 

60 FOR i = 0 TO 7 

70 LET b = f - 2*INT(f/2) : LET f = INT(f/2) 

75 IF b = 0 THEN GOTO 90 __ 

80 PRINT AT 21, (20-2*i) ; "1" Ç CAps SHIFT + GRAPHICS^ 

90 NEXT i M +8 segurando a . ) 

( CAPS SHIFT / 

100 PRINT \~ _y 

110 NEXT j ~~ 

100 PRINT’ ’ 

Para passar da impressão de um unico caractere a uma ca " 
deia de caracteres basta fazer as seguintes modificações: 


1) —*10 INPUT "Entre com o textoD"; c$ _ 

2) -*- Eliminar a linha 20 q PrQ ~ ama 25^T 

3) _-30 poR k = 1 TO LEN c$ -^C ^capítulo 21 para saber 

4) —40 LET ec = ei+8*(C0DE (c$(k TOk)) - IT) 0 q “| N e 

5) —fc* 120 NEXT k V 

/-\ 

I O.lJNão esqueça que quando aparece "scroll" basta apertar 
* qualquer coisa que a tela sobe. 


12) Neste programa, usando READ, DATA, RESTORE, PLOT, DRAW, 
INVERSE, OVER etc. desenharemos uma capsula espacial (de¬ 
senho aproximado) apresentando-a 32 vezes na tela confor¬ 
me se mostra na Figura 27. 


219 




220 


13) Aí vao 3 aplicações nas quais se utiliza a variável subs¬ 
crita. 

a) Neste programa voce pode entrar com 15 numeros e os 
mesmos serão arranjados em ordem crescente e serão exi 
bidos juntamente com o seu logaritmo natural. 

Caso o seu numero seja negativo para o logaritmo 
surge a mensagem "Nao existe?" 

10 REM***0rdenaçao numérica*** 

20 DIM n(15) 

30 BORDER 0; PAPER 6; INK 1 
40 FOR j = 1 TO 15 
50 XNPUT n(j) 

60 IF j=l THEN GOTO 130 
70 FOR k = j TO 2 STEP -1 
80 IF n(k) > = n(k-l) THEN GOTO 120 
90 LET aux - n(k) 

100 LET n(k) = n(k-l) 

110 LET n(k-l) * aux 
120 NEXT k 
130 NEXT j 

140 PRINT "Valor", "Logaritmo(e)" 

150 FOR i = 1 TO 15 

160 IF n(i) <0 THEN SOUND 3,20: GOTO 190 
170 PRINT n(i), LNn(i) 

180 GOTO 200 

190 PRINT n(i), "Nao existe?" 

200 NEXT i 

b) Agora você verá um uso intenso do READ junto com va¬ 
riáveis indexadas do tipo STRING. 
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10 REM *** escolhendo um mes *** 

20 DIM m$(12,3) 

30 DATA "jan”,"£ev","mar","abr","mai","jun","jul"," 
"ago", "set" ,"out","nov","dez" 

40 FOR j = 1 TO 12 
50 READ m$(j) 

60 NEXT j 

70 LET r - INT(RND*12) + 1 
80 PRINT FLASH 1; AT 11,10; m $(r) 

90 PAUSE 0 : SOUND .03,20 
100 LET e$ = INKEY$ 

110 IF e$ = CHR$ 13 THEN GOTO 90 


120 GOTO 70 


0.1.-^ Experimente mudar a linha 20 para 
20 DIM m$(12,2) 
e vejá o que ocorre. 

Houve aleum corte? 



c) Neste programa faremos do seu TK 90X um "inteligente" 
criador de textos (as vezes desconexos). 


10 REM*** Criando frases *** 

20 DIM £$(6,32) ——• rC ? er ^L' para t V f ÍS ' 
veis STRING cada uma podendo ter 

30 DIM píOSjlQ)*^ atê 32 caracteres 


40 FOR i-1 TO 35 reserva-se espaço para 35 va- 

rrt */-\ riáveis cada uma podendo ter 

50 READ p$(l) ãtg lg caTacceTea P 

60 NEXT i 

70 DATA "Maceió”,"Cabo Frio”, "Ponta Grossa", "Ibiuna", 
"Piedade" 

30 DATA "machucou", "feriu", "contundiu", "quebrou". 


90 DATA "ombro", "joelho", "braço", "dedo", "pá" 


dedo 
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100 DATA "no jogo", "com a porta", "na escola", "na 
discussão", "no rebuliço" 

110 DATA "sofrendo", "agoniando", "passando mal", "se 
machucando", "se estraçalhando" 

120 DATA "tanto", "desta forma", "daquela maneira", 
"deste jeito", "deste modo" 

130 DATA "por obra do acaso", "sem merecer", "por 
puro azar.", "dolorida.", "tão grave." 

140 FOR j = 1 TO 6 
150 READ f$(j) 

160 NEXT j 

170 DATA "Era um (a) jovem que nasceu em", '‘ e que", 

"o seu” ' 

180 DATA "Um (a) rapaz (moça) que vivia em", "em certa 
época", "o seu" 

190 LET a = 0 
200 LET b = 0 

210 LET q = INT(RND*2)+1: LET a=3*(q-l) 

215 LET a = a+1 

220 IF a = 3*q+l THEN GOTO 290 
230 PRINT f$(a) 

240 LET b = b+1 

250 LET r = INT(RND*$+1): LET k = 5*(b-l)+r 
260 PRINT p$(k) 

270 IF b > “ 3 AND b < 7 THEN‘GOTO 240 
280 GOTO 215 

• 290 INPUT "Mais uma vez (S/N)?D"; a$ 

300 IF a$ = "S" THEN RUN 

MgimS-ComentãHosjKç^^ 

Li ilhas 190 e 200 —••servem de inicialização 

Linhas 210 e 260 —••servem para que se imprima o conteúdo 
guardado nas variáveis STRING f$ e p$ 
respectivamente 


Linha 210 —serve para que se possa escolher um dado 
entre aqueles armazenados na matriz f$( ) 

Linha 250 —#»• serve para que se possa escolher aleatoria¬ 
mente uma palavra ou frase entre aquelas 
armazenadas na matriz p$( ). 

Linha 270 —• serve para que se possa imprimir o conteúdo 
de duas variaveis da matriz p$( ) antes de 
se tomar um novo elemento de f$( ). 

Linha 280 —serve para que se imprima o conteúdo de 
duas variãveis da matriz f$ antes de se to¬ 
mar um novo elemento de p$( ). 

14) Neste programa tem-se um pequeno jogo instrutivo no qual 
o seu TK 90X lhe exibe uma palavra em português e pede 
que voce entre com a correspondente em inglês e vice ver¬ 
sa. 

É claro que nos limitaremos aqui a 30 nomes porém 
você pode ampliar em muito esta lista... 

Perdoe-me caso você indique algum sinonimo eele não 
seja aceito no programa. 

10 REM**Português X Inglês** 

20 RAND 
30 LET c = 0 
40 LET p = 0 

50 DIM p$(30,10) : DIM i$(30,10) 

60 FOR j=l TO 30 
70 READ p$(j) 

80 READ i$(j) 

90 NEXT j 

100 INPUT "Como te chamas? n$ 

110 IF LEN n$ >9 THEN LET n$ = n$(TO 9) 

120 PAUSE 250 
130 CLS 
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140 PRINT PAPER 6; INK 1; AT 0,4; "PONTOS: □"; c 
150 PRINT PAPER 6; INK 1; AT 0,16; "PERGUNTAS:□"; p 
160 LET r « INT (RND*30)+1 
170 IF RND >.5 THEN GOTO 330 

180 PRINT PAPER 4; INK 1; AT 6,4; "Qual e a palavra 
inglesa"; 

190 PRINT PAPER 4; INK 1; AT 7,4; "paraD"; p$(r); 

"□ tODDODDQ" 


200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


INPUT r$ 


LET p = p+1 

IF LEN r$< 10 THEN LET r$ = r$ + "D" : GOTO 220 


IF r$ = í$(r) THEN GOTO 280 
SOUND .125,-7 : SOUND .5,-9 : SOUND .1,-11 
PRINT PAPER 3; INK 1; AT 12,4; "NãoO"; n$; "Qa 
palavra ê" 

PRINT PAPER 3; INK 1; AT 13,4; i$(r); 'GDffiDOOOQ " 

GOTO 120 

SOUND .125,9 ; SOUND .25,8 : SOUND .5,7 : SOUND 1,6 
PRINT PAPER 3; INK 1; AT 10,4; "Parabéns esta correto!" 
LET c = c+1 


IF c= 30 THEN GOTO 430 
GOTO 120 

PRINT PAPER 4; INK 1; AT 6,4; "Qual é a palavra 


portuguesa" 

340 PRINT PAPER 4; INK 1; AT 7,4; "paraQ"; i$(r);"Q? 

nDDDaaaa *• 


350 INPUT r$ 

360 LET p = p+1 

370 IF LEN r$< 10 THEN* LET r$ » r$ + : GOTO 370 

380 IF r$ = p$(r) THEN GOTO 280 

390 SOUND .25,0 : SOUND .25,2 : SOUND .25,4 : SOUND .25,5 
400 PRINT PAPER 3; INK 1; AT 12,4; "NaolH"; n$; "Da pa¬ 
lavra ê D" 


410 PRINT PAPER 3; INK 1; AT 13,4; p$(r) 

420 GOTO 120 

430 PAPER 0 : BORDER 0 : CLS 

440 PRINT PAPER 5 ; INK 1; AT 2,2; "Até que enfim!!.’" 
450 PRINT PAPER 5'í INK 1 : AT 3,2: "Voce conseguiu 
acertar 30" 

460 PRINT PAPER 5 : INK 1 : AT 4,12; "perguntas" 

470 FOR r - 1 TO 36 STEP 3 
480 CIRCLE INK 6; 125, 70, r 
490 NEXT r ^ 

500 PAUSE 0 : PAPER 7 : BORDER 7 
510 CLS 
520 STOP 

530 DATA "macaco", "ape" 

540 DATA "braço", "arm" 

550 DATA "mau", "bad" 

560 DATA "belo", "beautiful" 

570 DATA "preto", "black" 

580 DATA "carvao", "coai" 

590 DATA "cruz", "cross" 

600 DATA "fundo", "deep" 

610 DATA "diamante", "diamond" 

620 DATA "terra", "land” 

630 DATA "envelope", "envelope" 

640 DATA "campo", "field" 

650 DATA "alimento", "food" 

660 DATA "genio", "genius" 

670 DATA "chapéu", "hat" 

680 DATA "interior", "indoor" 

690 DATA "beijo", "kiss" 

700 DATA "trabalho", "labor" 

710 DATA "maquina", "machine" 

720 DATA "norte", "north" 
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730 DATA "ostra”, "oyster" 

740 DATA "pico", "peak" 

750 DATA "restaurar", "restore" 

760 DATA "sardinha", "sardine" 

770 DATA "irmandade", "sorority " 

730 DATA "tarefa", "task" 

790 DATA "trinta", "thirty" 

800 DATA "vencedor", "victor" 

810 DATA "voz", "voice" 

820 DATA "valsa", "waltz" 

15) Este programa é um pequeno quebra-cabeça ou "raxa kuka" e 
vou-lhe indicar inicíalmente as normas a seguir. 

Para começar, talvez necessite de lápis e papel,po 
rêm se você proceder assim seria como se você estivesse 
trapaceando. 

0 objetivo e achar a ãrea de um trapézio ou seja 
a ãrea de um triângulo somada a area de um retângulo. 

0 programa lhe perguntara "Um ou dois jogadores?". 

Tecle □ ou f ~l\ e aí* pressione a f ENTER | . 

Em seguida lhe perguntara o nome ou os nomes dos 

jogadores e depois de ter introduzido as informações re- 

1 

queridas tecle de novo ENTER . 

Aí o TK 90X lhe mostrara um retângulo verde com um 
triângulo azul em cima. 

Voce sera informado(â) sobre o comprimento de cada 
um dos lados e lhe será pedido para calcular a area to¬ 
tal. 

Caso voce não consiga dar a resposta correta ini¬ 
cialmente o TK 90X lhe perguntara so sobre a ãrea do re¬ 
tângulo. 

Se desta vez a sua resposta for correta,então mos¬ 
trara o triângulo de novo perguntando-lhe a respeito da 
ãrea sõ do triângulo. 
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Caso alguma das suas respostas (triângulo ou retan 
guio) esteja errada, o TK 90X lhe mostrara a area total 
correta. 

Entretanto se a sua primeira resposta a (total) es 
tiver correta, esta tudo terminado "gatão" ("gatinha") e 
como prêmio vais ganhar 2 pontos, porem se acertas em 
duas vezes sõ terás 1 ponto. 

Ai vai uma "dica": a ãrea total pode ser obtida 
pela formula 

BxC + y B x 

Bem aí vai o programa p 

10 REM ** Ireas ** 

15 BORDER 3: PAPER 6 
20 LET d = 40 : LET e = 90 
30 DIM s(2) 

40 DIM p$(2,9) 

50 RAND : LET s(l) =0 : LET s(2) =0 
60 INPUT "1 ou 2 jogadores?n Frgura 28 

70 IF n < 1 OR n > 2 THEN GOTO 60 

80 PRINT AT 10,3; "Quais sao os nomes dos jogadores?" 

90 FOR j=l TO n 

100 PRINT AT 13,4; "JogadorD";j 
110 INPUT p$(j) 

120 NEXT j 
130 CLS 

140 FOR z = 1 TO n 
150 LET a = INT(RND*7) + 4 
160 LET b = INT (RND*8) + .3 
170 LET c - INT (RND*5) + 3 
180 IF c >= a THEN GOTO 150 
190 LET sa = a*3 
200 LET sb = b*8 
210 LET sc = c*8 
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220 FOR j*dTOd-l+ sc 

230 PLOT e,j 

240 DRAW INK 4; sb,0 

250 NEXT j 

260 PLOT e, d+sc 

270 DRAW INK 1; sb, sa-sc 

280 DRAW INK 1; 0, - (sa-sc) 

290 FOR j = d + sc TO d-1 + sa 

300 FOR k = e - X + sb TO e STEP-1 

310 IF.POINT (k,j) - 1 THEN LET k = 60: GOTO 340 


Esta função informa se uma 

330 PLOT INK 1; k,j ( determinada posição da tela ( 

34» NEXT t ) ít d ILLlitl 

350 NEXT j Ç _ou ativada voltando 1 se estâ\ 

360 PRINT AT 16-INT a/27^L3+b7a^ > ) na -° r de IN ^ e 0 se 

} esta na cor do, y 

370 PRINT AT 18, INT 11 + b/2; b (PAPER 
380 PRINT AT INT 16 - c/2,9; c ~ 

390 PRINT AT 20,0; p$(z);’*, qual e a área total?" 

400 INPUT resposta 

410 IF resposta — c*b + b/2 * (a—c) THEN GOTO 680 

420 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 

430 PRINT AT 20,0; p$(z);", qual e a área do retângulo? 

”nDoaaaDanaQGDmaDüan H 

— i ,, mu '"■0 espaços em branco 

440 INPUT ret 

450 IF ret - c*b THEN GOTO 500 

460 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 

470 PRINT AT 20,0, "A ãrea do retângulo e "; c*b; 

"□□□□□□□□Doanooaoaooa" 

480 PAUSE 220^-“ b ‘'* oco 

490 GOTO 640 

500 PRINT AT 20,0; p$(z); ",qual é a ãrea do triângulo? 

"GDDoaooaaooooa □□□□□□ •• 

510 INPUT triaÍT"- espa<?os em branco 

520 IF triang = b/2 * (a-c) THEN GOTO 570 


>20 espaços em branco 
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530 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 
540 PRINT AT 20,0; "A ãrea do triângulo e "; b/2*(a-c); 
"□□□□□OODDDOOODODDOQD " 

PiiKF espaços em branco 


550 PAUSE 220 espaços em branco 

560 GOTO 640 

570 PRINT AT 20,0; p$(z); ", qual e a ãrea total? 

"□□□□□□□omaaoDQnoma" 

tmpitt espaços era branco. 


580 INPUT resposta ^ espaços era wanco. 

590 IF resposta = b*c + b/2 * (a-c) THEN GOTO 620 
600 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 
610 GOTO 640 

620 LET s(z) - s(z) + 1 : SOUND .125,-5 : SOUND .125,-7 : 

SOUND .125,-9 
630 GOTO 660 

640 PRINT AT 20,0; "A ãrea total e b*c + b/2 * (a-c); 


650 PAUSE 220 lfc *“20 espaços em branco 

660 CLS 

670 GOTO 700 

680 SOUND .25,0 : SOUND .25,-1': SOUND .25,-3 : 

SOUND .25,-5 
690 LET s(z) * s(z) + 2 

700 PRINT AT 1,4; p$(1); s (1); "□□□"; p$(2); 

s(2) 

710 NEXT z 
720 GOTO 140 
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